(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    195393,       3752]
NotebookOptionsPosition[    192666,       3669]
NotebookOutlinePosition[    193010,       3684]
CellTagsIndexPosition[    192967,       3681]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Fy", "[", 
  RowBox[{"y", ",", "\[Sigma]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Condexp", "[", 
  RowBox[{"y", ",", "\[Sigma]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.518302904609375*^9, 3.51830292290625*^9}, {
  3.518302978578125*^9, 3.518303015953125*^9}, {3.518303879609375*^9, 
  3.51830392253125*^9}, {3.5185012885817347`*^9, 3.518501301991016*^9}, {
  3.5185013334162035`*^9, 3.518501333936952*^9}, {3.5185013758972883`*^9, 
  3.5185013767885695`*^9}, {3.51850288211312*^9, 3.5185028848270226`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"msein", " ", "=", " ", 
   RowBox[{"2", "*", ".03"}]}], ";"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y", ",", 
     RowBox[{"Sqrt", "[", "msein", "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Condexp", "[", 
     RowBox[{"y", ",", 
      RowBox[{"Sqrt", "[", "msein", "]"}]}], "]"}], "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.51830411378125*^9, 3.518304173625*^9}, {
   3.518304339875*^9, 3.51830435015625*^9}, {3.518304549953125*^9, 
   3.518304560828125*^9}, {3.518305073046875*^9, 3.518305074953125*^9}, {
   3.518483801859375*^9, 3.518483804421875*^9}, 3.51848393953125*^9, 
   3.518568276993103*^9}],

Cell[BoxData[{
 RowBox[{"norm\[Sigma]List", " ", "=", " ", 
  RowBox[{"Range", "[", 
   RowBox[{".01", ",", ".13", ",", " ", ".0001"}], "]"}]}], "\n", 
 RowBox[{"indexLim", "=", 
  RowBox[{"Length", "[", "norm\[Sigma]List", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mseinList", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "norm\[Sigma]List"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varoutList", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", 
     RowBox[{"Length", "[", "mseinList", "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.5184991443284492`*^9, {3.518501348257544*^9, 3.518501354887077*^9}, {
   3.518568145479943*^9, 3.518568178887723*^9}}],

Cell[BoxData[{
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "mseinList", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"varoutList", "[", 
     RowBox[{"[", "i", "]"}], "]"}], "=", 
    RowBox[{"var", "[", 
     RowBox[{"mseinList", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"normvarout", "=", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"2", "-", "varoutList"}], "]"}], "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.518497992375*^9, 3.518497994515625*^9}, {
  3.5184987961477904`*^9, 3.518498815535669*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"//", "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
               "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}],
        "//"}], "//"}], "//"}], "//"}], "//"}], "//"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
     "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.518568204163957*^9, 3.518568207611925*^9}, {
  3.518570785417153*^9, 3.518570786761775*^9}, {3.518571020440722*^9, 
  3.518571031083223*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"norm\[Sigma]List", " ", "=", " ", 
  RowBox[{"Range", "[", 
   RowBox[{".01", ",", ".13", ",", " ", ".0001"}], "]"}]}], "\n", 
 RowBox[{"indexLim", "=", 
  RowBox[{"Length", "[", "norm\[Sigma]List", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mseinList", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "norm\[Sigma]List"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varoutList", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", 
     RowBox[{"Length", "[", "mseinList", "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.5184991443284492`*^9, {3.518501348257544*^9, 3.518501354887077*^9}, {
   3.518568145479943*^9, 3.518568178887723*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.01`", ",", "0.0101`", ",", "0.0102`", ",", "0.0103`", ",", "0.0104`", 
   ",", "0.0105`", ",", "0.0106`", ",", "0.0107`", ",", "0.0108`", ",", 
   "0.0109`", ",", "0.011000000000000001`", ",", "0.0111`", ",", "0.0112`", 
   ",", "0.011300000000000001`", ",", "0.0114`", ",", "0.0115`", ",", 
   "0.011600000000000001`", ",", "0.0117`", ",", "0.0118`", ",", "0.0119`", 
   ",", "0.012`", ",", "0.0121`", ",", "0.0122`", ",", "0.0123`", ",", 
   "0.0124`", ",", "0.0125`", ",", "0.0126`", ",", "0.0127`", ",", "0.0128`", 
   ",", "0.0129`", ",", "0.013000000000000001`", ",", "0.0131`", ",", 
   "0.0132`", ",", "0.013300000000000001`", ",", "0.0134`", ",", "0.0135`", 
   ",", "0.013600000000000001`", ",", "0.0137`", ",", "0.0138`", ",", 
   "0.013900000000000001`", ",", "0.014`", ",", "0.0141`", ",", "0.0142`", 
   ",", "0.0143`", ",", "0.0144`", ",", "0.0145`", ",", "0.0146`", ",", 
   "0.014700000000000001`", ",", "0.0148`", ",", "0.0149`", ",", 
   "0.015000000000000001`", ",", "0.0151`", ",", "0.0152`", ",", 
   "0.015300000000000001`", ",", "0.0154`", ",", "0.0155`", ",", 
   "0.015600000000000001`", ",", "0.015700000000000002`", ",", "0.0158`", ",",
    "0.0159`", ",", "0.016`", ",", "0.0161`", ",", "0.0162`", ",", 
   "0.016300000000000002`", ",", "0.0164`", ",", "0.0165`", ",", "0.0166`", 
   ",", "0.0167`", ",", "0.0168`", ",", "0.016900000000000002`", ",", 
   "0.017`", ",", "0.0171`", ",", "0.0172`", ",", "0.0173`", ",", 
   "0.017400000000000002`", ",", "0.0175`", ",", "0.0176`", ",", "0.0177`", 
   ",", "0.0178`", ",", "0.0179`", ",", "0.018000000000000002`", ",", 
   "0.0181`", ",", "0.0182`", ",", "0.0183`", ",", "0.0184`", ",", "0.0185`", 
   ",", "0.018600000000000002`", ",", "0.0187`", ",", "0.0188`", ",", 
   "0.0189`", ",", "0.019`", ",", "0.0191`", ",", "0.019200000000000002`", 
   ",", "0.0193`", ",", "0.0194`", ",", "0.0195`", ",", "0.0196`", ",", 
   "0.019700000000000002`", ",", "0.0198`", ",", "0.0199`", ",", "0.02`", ",",
    "0.0201`", ",", "0.0202`", ",", "0.020300000000000002`", ",", "0.0204`", 
   ",", "0.0205`", ",", "0.0206`", ",", "0.0207`", ",", "0.0208`", ",", 
   "0.020900000000000002`", ",", "0.021`", ",", "0.0211`", ",", "0.0212`", 
   ",", "0.0213`", ",", "0.021400000000000002`", ",", "0.021500000000000002`",
    ",", "0.0216`", ",", "0.0217`", ",", "0.0218`", ",", "0.0219`", ",", 
   "0.022000000000000002`", ",", "0.0221`", ",", "0.0222`", ",", "0.0223`", 
   ",", "0.0224`", ",", "0.0225`", ",", "0.022600000000000002`", ",", 
   "0.0227`", ",", "0.0228`", ",", "0.0229`", ",", "0.023`", ",", 
   "0.023100000000000002`", ",", "0.023200000000000002`", ",", "0.0233`", ",",
    "0.0234`", ",", "0.0235`", ",", "0.0236`", ",", "0.023700000000000002`", 
   ",", "0.0238`", ",", "0.0239`", ",", "0.024`", ",", "0.0241`", ",", 
   "0.0242`", ",", "0.024300000000000002`", ",", "0.0244`", ",", "0.0245`", 
   ",", "0.0246`", ",", "0.0247`", ",", "0.024800000000000003`", ",", 
   "0.024900000000000002`", ",", "0.025`", ",", "0.0251`", ",", "0.0252`", 
   ",", "0.0253`", ",", "0.025400000000000002`", ",", "0.025500000000000002`",
    ",", "0.0256`", ",", "0.0257`", ",", "0.0258`", ",", "0.0259`", ",", 
   "0.026000000000000002`", ",", "0.0261`", ",", "0.0262`", ",", "0.0263`", 
   ",", "0.0264`", ",", "0.026500000000000003`", ",", "0.026600000000000002`",
    ",", "0.0267`", ",", "0.0268`", ",", "0.0269`", ",", "0.027`", ",", 
   "0.027100000000000003`", ",", "0.027200000000000002`", ",", "0.0273`", ",",
    "0.0274`", ",", "0.0275`", ",", "0.0276`", ",", "0.027700000000000002`", 
   ",", "0.027800000000000002`", ",", "0.0279`", ",", "0.028`", ",", 
   "0.0281`", ",", "0.0282`", ",", "0.028300000000000002`", ",", "0.0284`", 
   ",", "0.0285`", ",", "0.0286`", ",", "0.0287`", ",", 
   "0.028800000000000003`", ",", "0.028900000000000002`", ",", "0.029`", ",", 
   "0.0291`", ",", "0.0292`", ",", "0.0293`", ",", "0.029400000000000003`", 
   ",", "0.029500000000000002`", ",", "0.0296`", ",", "0.0297`", ",", 
   "0.0298`", ",", "0.0299`", ",", "0.030000000000000002`", ",", 
   "0.030100000000000002`", ",", "0.0302`", ",", "0.0303`", ",", "0.0304`", 
   ",", "0.030500000000000003`", ",", "0.030600000000000002`", ",", "0.0307`",
    ",", "0.0308`", ",", "0.0309`", ",", "0.031`", ",", 
   "0.031100000000000003`", ",", "0.031200000000000002`", ",", "0.0313`", ",",
    "0.031400000000000004`", ",", "0.0315`", ",", "0.0316`", ",", "0.0317`", 
   ",", "0.0318`", ",", "0.0319`", ",", "0.032`", ",", 
   "0.032100000000000004`", ",", "0.0322`", ",", "0.0323`", ",", "0.0324`", 
   ",", "0.0325`", ",", "0.032600000000000004`", ",", "0.0327`", ",", 
   "0.0328`", ",", "0.0329`", ",", "0.033`", ",", "0.033100000000000004`", 
   ",", "0.0332`", ",", "0.0333`", ",", "0.0334`", ",", "0.0335`", ",", 
   "0.0336`", ",", "0.0337`", ",", "0.033800000000000004`", ",", "0.0339`", 
   ",", "0.034`", ",", "0.0341`", ",", "0.0342`", ",", 
   "0.034300000000000004`", ",", "0.0344`", ",", "0.0345`", ",", "0.0346`", 
   ",", "0.0347`", ",", "0.034800000000000005`", ",", "0.0349`", ",", 
   "0.035`", ",", "0.0351`", ",", "0.0352`", ",", "0.0353`", ",", "0.0354`", 
   ",", "0.035500000000000004`", ",", "0.0356`", ",", "0.0357`", ",", 
   "0.0358`", ",", "0.0359`", ",", "0.036000000000000004`", ",", "0.0361`", 
   ",", "0.0362`", ",", "0.0363`", ",", "0.0364`", ",", 
   "0.036500000000000005`", ",", "0.0366`", ",", "0.0367`", ",", "0.0368`", 
   ",", "0.0369`", ",", "0.037`", ",", "0.0371`", ",", 
   "0.037200000000000004`", ",", "0.0373`", ",", "0.0374`", ",", "0.0375`", 
   ",", "0.0376`", ",", "0.037700000000000004`", ",", "0.0378`", ",", 
   "0.0379`", ",", "0.038`", ",", "0.0381`", ",", "0.038200000000000005`", 
   ",", "0.0383`", ",", "0.038400000000000004`", ",", "0.0385`", ",", 
   "0.0386`", ",", "0.0387`", ",", "0.0388`", ",", "0.038900000000000004`", 
   ",", "0.039`", ",", "0.0391`", ",", "0.0392`", ",", "0.0393`", ",", 
   "0.039400000000000004`", ",", "0.0395`", ",", "0.0396`", ",", "0.0397`", 
   ",", "0.0398`", ",", "0.039900000000000005`", ",", "0.04`", ",", 
   "0.040100000000000004`", ",", "0.0402`", ",", "0.0403`", ",", "0.0404`", 
   ",", "0.0405`", ",", "0.040600000000000004`", ",", "0.0407`", ",", 
   "0.0408`", ",", "0.0409`", ",", "0.041`", ",", "0.041100000000000005`", 
   ",", "0.0412`", ",", "0.0413`", ",", "0.0414`", ",", "0.0415`", ",", 
   "0.041600000000000005`", ",", "0.0417`", ",", "0.041800000000000004`", ",",
    "0.0419`", ",", "0.042`", ",", "0.0421`", ",", "0.0422`", ",", 
   "0.042300000000000004`", ",", "0.0424`", ",", "0.0425`", ",", "0.0426`", 
   ",", "0.0427`", ",", "0.042800000000000005`", ",", "0.0429`", ",", 
   "0.043000000000000003`", ",", "0.0431`", ",", "0.0432`", ",", 
   "0.043300000000000005`", ",", "0.0434`", ",", "0.043500000000000004`", ",",
    "0.0436`", ",", "0.0437`", ",", "0.0438`", ",", "0.0439`", ",", 
   "0.044000000000000004`", ",", "0.0441`", ",", "0.0442`", ",", "0.0443`", 
   ",", "0.0444`", ",", "0.044500000000000005`", ",", "0.0446`", ",", 
   "0.044700000000000004`", ",", "0.0448`", ",", "0.0449`", ",", 
   "0.045000000000000005`", ",", "0.0451`", ",", "0.045200000000000004`", ",",
    "0.0453`", ",", "0.0454`", ",", "0.0455`", ",", "0.0456`", ",", 
   "0.045700000000000005`", ",", "0.0458`", ",", "0.0459`", ",", "0.046`", 
   ",", "0.0461`", ",", "0.046200000000000005`", ",", "0.0463`", ",", 
   "0.046400000000000004`", ",", "0.0465`", ",", "0.0466`", ",", 
   "0.046700000000000005`", ",", "0.0468`", ",", "0.046900000000000004`", ",",
    "0.047`", ",", "0.0471`", ",", "0.0472`", ",", "0.0473`", ",", 
   "0.047400000000000005`", ",", "0.0475`", ",", "0.0476`", ",", "0.0477`", 
   ",", "0.0478`", ",", "0.047900000000000005`", ",", "0.048`", ",", 
   "0.048100000000000004`", ",", "0.0482`", ",", "0.0483`", ",", "0.0484`", 
   ",", "0.0485`", ",", "0.048600000000000004`", ",", "0.0487`", ",", 
   "0.0488`", ",", "0.0489`", ",", "0.049`", ",", "0.049100000000000005`", 
   ",", "0.0492`", ",", "0.049300000000000004`", ",", "0.0494`", ",", 
   "0.0495`", ",", "0.049600000000000005`", ",", "0.0497`", ",", 
   "0.049800000000000004`", ",", "0.0499`", ",", "0.05`", ",", "0.0501`", ",",
    "0.0502`", ",", "0.050300000000000004`", ",", "0.0504`", ",", "0.0505`", 
   ",", "0.0506`", ",", "0.0507`", ",", "0.050800000000000005`", ",", 
   "0.0509`", ",", "0.051000000000000004`", ",", "0.0511`", ",", "0.0512`", 
   ",", "0.051300000000000005`", ",", "0.0514`", ",", "0.051500000000000004`",
    ",", "0.0516`", ",", "0.0517`", ",", "0.0518`", ",", "0.0519`", ",", 
   "0.052000000000000005`", ",", "0.0521`", ",", "0.0522`", ",", "0.0523`", 
   ",", "0.0524`", ",", "0.052500000000000005`", ",", "0.0526`", ",", 
   "0.052700000000000004`", ",", "0.0528`", ",", "0.0529`", ",", 
   "0.053000000000000005`", ",", "0.0531`", ",", "0.053200000000000004`", ",",
    "0.0533`", ",", "0.0534`", ",", "0.0535`", ",", "0.0536`", ",", 
   "0.053700000000000005`", ",", "0.0538`", ",", "0.0539`", ",", "0.054`", 
   ",", "0.0541`", ",", "0.054200000000000005`", ",", "0.0543`", ",", 
   "0.054400000000000004`", ",", "0.0545`", ",", "0.0546`", ",", 
   "0.054700000000000006`", ",", "0.0548`", ",", "0.054900000000000004`", ",",
    "0.055`", ",", "0.0551`", ",", "0.0552`", ",", "0.0553`", ",", 
   "0.055400000000000005`", ",", "0.0555`", ",", "0.055600000000000004`", ",",
    "0.0557`", ",", "0.0558`", ",", "0.055900000000000005`", ",", "0.056`", 
   ",", "0.056100000000000004`", ",", "0.0562`", ",", "0.0563`", ",", 
   "0.056400000000000006`", ",", "0.0565`", ",", "0.056600000000000004`", ",",
    "0.0567`", ",", "0.0568`", ",", "0.0569`", ",", "0.057`", ",", 
   "0.057100000000000005`", ",", "0.0572`", ",", "0.057300000000000004`", ",",
    "0.0574`", ",", "0.0575`", ",", "0.057600000000000005`", ",", "0.0577`", 
   ",", "0.057800000000000004`", ",", "0.0579`", ",", "0.058`", ",", 
   "0.058100000000000006`", ",", "0.0582`", ",", "0.058300000000000005`", ",",
    "0.0584`", ",", "0.0585`", ",", "0.0586`", ",", "0.0587`", ",", 
   "0.058800000000000005`", ",", "0.0589`", ",", "0.059000000000000004`", ",",
    "0.0591`", ",", "0.0592`", ",", "0.059300000000000005`", ",", "0.0594`", 
   ",", "0.059500000000000004`", ",", "0.0596`", ",", "0.0597`", ",", 
   "0.059800000000000006`", ",", "0.0599`", ",", "0.060000000000000005`", ",",
    "0.0601`", ",", "0.060200000000000004`", ",", "0.0603`", ",", "0.0604`", 
   ",", "0.060500000000000005`", ",", "0.0606`", ",", "0.060700000000000004`",
    ",", "0.0608`", ",", "0.0609`", ",", "0.061000000000000006`", ",", 
   "0.0611`", ",", "0.061200000000000004`", ",", "0.0613`", ",", "0.0614`", 
   ",", "0.061500000000000006`", ",", "0.0616`", ",", "0.061700000000000005`",
    ",", "0.0618`", ",", "0.061900000000000004`", ",", "0.062`", ",", 
   "0.0621`", ",", "0.062200000000000005`", ",", "0.0623`", ",", 
   "0.062400000000000004`", ",", "0.0625`", ",", "0.0626`", ",", "0.0627`", 
   ",", "0.06280000000000001`", ",", "0.0629`", ",", "0.063`", ",", "0.0631`",
    ",", "0.0632`", ",", "0.06330000000000001`", ",", "0.0634`", ",", 
   "0.0635`", ",", "0.0636`", ",", "0.0637`", ",", "0.06380000000000001`", 
   ",", "0.0639`", ",", "0.064`", ",", "0.0641`", ",", "0.06420000000000001`",
    ",", "0.0643`", ",", "0.0644`", ",", "0.0645`", ",", "0.0646`", ",", 
   "0.06470000000000001`", ",", "0.0648`", ",", "0.0649`", ",", "0.065`", ",",
    "0.0651`", ",", "0.06520000000000001`", ",", "0.0653`", ",", "0.0654`", 
   ",", "0.0655`", ",", "0.0656`", ",", "0.06570000000000001`", ",", 
   "0.0658`", ",", "0.0659`", ",", "0.066`", ",", "0.0661`", ",", 
   "0.06620000000000001`", ",", "0.0663`", ",", "0.0664`", ",", "0.0665`", 
   ",", "0.0666`", ",", "0.06670000000000001`", ",", "0.0668`", ",", 
   "0.0669`", ",", "0.067`", ",", "0.0671`", ",", "0.06720000000000001`", ",",
    "0.0673`", ",", "0.0674`", ",", "0.0675`", ",", "0.06760000000000001`", 
   ",", "0.0677`", ",", "0.0678`", ",", "0.0679`", ",", "0.068`", ",", 
   "0.06810000000000001`", ",", "0.0682`", ",", "0.0683`", ",", "0.0684`", 
   ",", "0.0685`", ",", "0.06860000000000001`", ",", "0.0687`", ",", 
   "0.0688`", ",", "0.0689`", ",", "0.069`", ",", "0.06910000000000001`", ",",
    "0.0692`", ",", "0.0693`", ",", "0.0694`", ",", "0.0695`", ",", 
   "0.06960000000000001`", ",", "0.0697`", ",", "0.0698`", ",", "0.0699`", 
   ",", "0.07`", ",", "0.07010000000000001`", ",", "0.0702`", ",", "0.0703`", 
   ",", "0.0704`", ",", "0.07050000000000001`", ",", "0.07060000000000001`", 
   ",", "0.0707`", ",", "0.0708`", ",", "0.0709`", ",", 
   "0.07100000000000001`", ",", "0.0711`", ",", "0.0712`", ",", "0.0713`", 
   ",", "0.0714`", ",", "0.07150000000000001`", ",", "0.0716`", ",", 
   "0.0717`", ",", "0.0718`", ",", "0.0719`", ",", "0.07200000000000001`", 
   ",", "0.0721`", ",", "0.0722`", ",", "0.0723`", ",", "0.0724`", ",", 
   "0.07250000000000001`", ",", "0.0726`", ",", "0.0727`", ",", "0.0728`", 
   ",", "0.0729`", ",", "0.07300000000000001`", ",", "0.0731`", ",", 
   "0.0732`", ",", "0.0733`", ",", "0.0734`", ",", "0.07350000000000001`", 
   ",", "0.0736`", ",", "0.0737`", ",", "0.0738`", ",", 
   "0.07390000000000001`", ",", "0.07400000000000001`", ",", "0.0741`", ",", 
   "0.0742`", ",", "0.0743`", ",", "0.07440000000000001`", ",", "0.0745`", 
   ",", "0.0746`", ",", "0.0747`", ",", "0.0748`", ",", 
   "0.07490000000000001`", ",", "0.075`", ",", "0.0751`", ",", "0.0752`", ",",
    "0.0753`", ",", "0.07540000000000001`", ",", "0.0755`", ",", "0.0756`", 
   ",", "0.0757`", ",", "0.0758`", ",", "0.07590000000000001`", ",", "0.076`",
    ",", "0.0761`", ",", "0.0762`", ",", "0.0763`", ",", 
   "0.07640000000000001`", ",", "0.0765`", ",", "0.0766`", ",", "0.0767`", 
   ",", "0.07680000000000001`", ",", "0.07690000000000001`", ",", "0.077`", 
   ",", "0.0771`", ",", "0.0772`", ",", "0.07730000000000001`", ",", 
   "0.0774`", ",", "0.0775`", ",", "0.0776`", ",", "0.0777`", ",", 
   "0.07780000000000001`", ",", "0.0779`", ",", "0.078`", ",", "0.0781`", ",",
    "0.0782`", ",", "0.07830000000000001`", ",", "0.0784`", ",", "0.0785`", 
   ",", "0.0786`", ",", "0.0787`", ",", "0.07880000000000001`", ",", 
   "0.0789`", ",", "0.079`", ",", "0.0791`", ",", "0.0792`", ",", 
   "0.07930000000000001`", ",", "0.0794`", ",", "0.0795`", ",", "0.0796`", 
   ",", "0.07970000000000001`", ",", "0.07980000000000001`", ",", "0.0799`", 
   ",", "0.08`", ",", "0.0801`", ",", "0.08020000000000001`", ",", 
   "0.08030000000000001`", ",", "0.0804`", ",", "0.0805`", ",", "0.0806`", 
   ",", "0.08070000000000001`", ",", "0.0808`", ",", "0.0809`", ",", "0.081`",
    ",", "0.0811`", ",", "0.08120000000000001`", ",", "0.0813`", ",", 
   "0.0814`", ",", "0.0815`", ",", "0.0816`", ",", "0.08170000000000001`", 
   ",", "0.0818`", ",", "0.0819`", ",", "0.082`", ",", "0.0821`", ",", 
   "0.08220000000000001`", ",", "0.0823`", ",", "0.0824`", ",", "0.0825`", 
   ",", "0.0826`", ",", "0.08270000000000001`", ",", "0.0828`", ",", 
   "0.0829`", ",", "0.083`", ",", "0.08310000000000001`", ",", 
   "0.08320000000000001`", ",", "0.0833`", ",", "0.0834`", ",", "0.0835`", 
   ",", "0.08360000000000001`", ",", "0.08370000000000001`", ",", "0.0838`", 
   ",", "0.0839`", ",", "0.084`", ",", "0.08410000000000001`", ",", "0.0842`",
    ",", "0.0843`", ",", "0.0844`", ",", "0.0845`", ",", 
   "0.08460000000000001`", ",", "0.0847`", ",", "0.0848`", ",", "0.0849`", 
   ",", "0.085`", ",", "0.08510000000000001`", ",", "0.0852`", ",", "0.0853`",
    ",", "0.0854`", ",", "0.0855`", ",", "0.08560000000000001`", ",", 
   "0.0857`", ",", "0.0858`", ",", "0.0859`", ",", "0.08600000000000001`", 
   ",", "0.08610000000000001`", ",", "0.0862`", ",", "0.0863`", ",", 
   "0.0864`", ",", "0.08650000000000001`", ",", "0.08660000000000001`", ",", 
   "0.0867`", ",", "0.0868`", ",", "0.0869`", ",", "0.08700000000000001`", 
   ",", "0.08710000000000001`", ",", "0.0872`", ",", "0.0873`", ",", 
   "0.0874`", ",", "0.08750000000000001`", ",", "0.0876`", ",", "0.0877`", 
   ",", "0.0878`", ",", "0.0879`", ",", "0.08800000000000001`", ",", 
   "0.0881`", ",", "0.0882`", ",", "0.0883`", ",", "0.0884`", ",", 
   "0.08850000000000001`", ",", "0.0886`", ",", "0.0887`", ",", "0.0888`", 
   ",", "0.0889`", ",", "0.08900000000000001`", ",", "0.0891`", ",", 
   "0.0892`", ",", "0.0893`", ",", "0.08940000000000001`", ",", 
   "0.08950000000000001`", ",", "0.0896`", ",", "0.0897`", ",", "0.0898`", 
   ",", "0.08990000000000001`", ",", "0.09000000000000001`", ",", "0.0901`", 
   ",", "0.0902`", ",", "0.0903`", ",", "0.09040000000000001`", ",", 
   "0.09050000000000001`", ",", "0.0906`", ",", "0.0907`", ",", "0.0908`", 
   ",", "0.09090000000000001`", ",", "0.091`", ",", "0.0911`", ",", "0.0912`",
    ",", "0.0913`", ",", "0.09140000000000001`", ",", "0.0915`", ",", 
   "0.0916`", ",", "0.0917`", ",", "0.0918`", ",", "0.09190000000000001`", 
   ",", "0.092`", ",", "0.0921`", ",", "0.0922`", ",", "0.09230000000000001`",
    ",", "0.09240000000000001`", ",", "0.0925`", ",", "0.0926`", ",", 
   "0.0927`", ",", "0.09280000000000001`", ",", "0.09290000000000001`", ",", 
   "0.093`", ",", "0.0931`", ",", "0.0932`", ",", "0.09330000000000001`", ",",
    "0.09340000000000001`", ",", "0.0935`", ",", "0.0936`", ",", "0.0937`", 
   ",", "0.09380000000000001`", ",", "0.0939`", ",", "0.094`", ",", "0.0941`",
    ",", "0.0942`", ",", "0.09430000000000001`", ",", "0.0944`", ",", 
   "0.0945`", ",", "0.0946`", ",", "0.0947`", ",", "0.09480000000000001`", 
   ",", "0.0949`", ",", "0.095`", ",", "0.0951`", ",", "0.0952`", ",", 
   "0.09530000000000001`", ",", "0.0954`", ",", "0.0955`", ",", "0.0956`", 
   ",", "0.09570000000000001`", ",", "0.09580000000000001`", ",", "0.0959`", 
   ",", "0.096`", ",", "0.0961`", ",", "0.09620000000000001`", ",", 
   "0.09630000000000001`", ",", "0.0964`", ",", "0.0965`", ",", "0.0966`", 
   ",", "0.09670000000000001`", ",", "0.09680000000000001`", ",", "0.0969`", 
   ",", "0.097`", ",", "0.0971`", ",", "0.09720000000000001`", ",", "0.0973`",
    ",", "0.0974`", ",", "0.0975`", ",", "0.0976`", ",", 
   "0.09770000000000001`", ",", "0.0978`", ",", "0.0979`", ",", "0.098`", ",",
    "0.0981`", ",", "0.09820000000000001`", ",", "0.0983`", ",", "0.0984`", 
   ",", "0.0985`", ",", "0.09860000000000001`", ",", "0.09870000000000001`", 
   ",", "0.0988`", ",", "0.0989`", ",", "0.099`", ",", "0.09910000000000001`",
    ",", "0.09920000000000001`", ",", "0.0993`", ",", "0.0994`", ",", 
   "0.0995`", ",", "0.09960000000000001`", ",", "0.09970000000000001`", ",", 
   "0.0998`", ",", "0.0999`", ",", "0.1`", ",", "0.10010000000000001`", ",", 
   "0.10020000000000001`", ",", "0.1003`", ",", "0.1004`", ",", "0.1005`", 
   ",", "0.10060000000000001`", ",", "0.1007`", ",", "0.1008`", ",", 
   "0.1009`", ",", "0.101`", ",", "0.10110000000000001`", ",", "0.1012`", ",",
    "0.1013`", ",", "0.1014`", ",", "0.1015`", ",", "0.10160000000000001`", 
   ",", "0.1017`", ",", "0.1018`", ",", "0.1019`", ",", 
   "0.10200000000000001`", ",", "0.10210000000000001`", ",", "0.1022`", ",", 
   "0.1023`", ",", "0.1024`", ",", "0.10250000000000001`", ",", 
   "0.10260000000000001`", ",", "0.1027`", ",", "0.1028`", ",", "0.1029`", 
   ",", "0.10300000000000001`", ",", "0.10310000000000001`", ",", "0.1032`", 
   ",", "0.1033`", ",", "0.1034`", ",", "0.10350000000000001`", ",", 
   "0.10360000000000001`", ",", "0.1037`", ",", "0.1038`", ",", "0.1039`", 
   ",", "0.10400000000000001`", ",", "0.1041`", ",", "0.1042`", ",", 
   "0.1043`", ",", "0.1044`", ",", "0.10450000000000001`", ",", "0.1046`", 
   ",", "0.1047`", ",", "0.1048`", ",", "0.10490000000000001`", ",", 
   "0.10500000000000001`", ",", "0.1051`", ",", "0.1052`", ",", "0.1053`", 
   ",", "0.10540000000000001`", ",", "0.10550000000000001`", ",", "0.1056`", 
   ",", "0.1057`", ",", "0.1058`", ",", "0.10590000000000001`", ",", 
   "0.10600000000000001`", ",", "0.1061`", ",", "0.1062`", ",", "0.1063`", 
   ",", "0.10640000000000001`", ",", "0.10650000000000001`", ",", "0.1066`", 
   ",", "0.1067`", ",", "0.1068`", ",", "0.10690000000000001`", ",", 
   "0.10700000000000001`", ",", "0.1071`", ",", "0.1072`", ",", "0.1073`", 
   ",", "0.10740000000000001`", ",", "0.1075`", ",", "0.1076`", ",", 
   "0.1077`", ",", "0.1078`", ",", "0.10790000000000001`", ",", "0.108`", ",",
    "0.1081`", ",", "0.1082`", ",", "0.10830000000000001`", ",", 
   "0.10840000000000001`", ",", "0.1085`", ",", "0.1086`", ",", "0.1087`", 
   ",", "0.10880000000000001`", ",", "0.10890000000000001`", ",", "0.109`", 
   ",", "0.1091`", ",", "0.1092`", ",", "0.10930000000000001`", ",", 
   "0.10940000000000001`", ",", "0.1095`", ",", "0.1096`", ",", "0.1097`", 
   ",", "0.10980000000000001`", ",", "0.10990000000000001`", ",", "0.11`", 
   ",", "0.1101`", ",", "0.1102`", ",", "0.11030000000000001`", ",", 
   "0.1104`", ",", "0.1105`", ",", "0.1106`", ",", "0.1107`", ",", 
   "0.11080000000000001`", ",", "0.1109`", ",", "0.111`", ",", "0.1111`", ",",
    "0.11120000000000001`", ",", "0.11130000000000001`", ",", "0.1114`", ",", 
   "0.1115`", ",", "0.1116`", ",", "0.11170000000000001`", ",", 
   "0.11180000000000001`", ",", "0.1119`", ",", "0.112`", ",", "0.1121`", ",",
    "0.11220000000000001`", ",", "0.11230000000000001`", ",", "0.1124`", ",", 
   "0.1125`", ",", "0.1126`", ",", "0.11270000000000001`", ",", 
   "0.11280000000000001`", ",", "0.1129`", ",", "0.113`", ",", "0.1131`", ",",
    "0.11320000000000001`", ",", "0.11330000000000001`", ",", "0.1134`", ",", 
   "0.1135`", ",", "0.1136`", ",", "0.11370000000000001`", ",", "0.1138`", 
   ",", "0.1139`", ",", "0.114`", ",", "0.11410000000000001`", ",", 
   "0.11420000000000001`", ",", "0.1143`", ",", "0.1144`", ",", "0.1145`", 
   ",", "0.11460000000000001`", ",", "0.11470000000000001`", ",", "0.1148`", 
   ",", "0.1149`", ",", "0.115`", ",", "0.11510000000000001`", ",", 
   "0.11520000000000001`", ",", "0.1153`", ",", "0.1154`", ",", "0.1155`", 
   ",", "0.11560000000000001`", ",", "0.11570000000000001`", ",", "0.1158`", 
   ",", "0.1159`", ",", "0.116`", ",", "0.11610000000000001`", ",", 
   "0.11620000000000001`", ",", "0.1163`", ",", "0.1164`", ",", "0.1165`", 
   ",", "0.11660000000000001`", ",", "0.11670000000000001`", ",", "0.1168`", 
   ",", "0.1169`", ",", "0.117`", ",", "0.11710000000000001`", ",", "0.1172`",
    ",", "0.1173`", ",", "0.1174`", ",", "0.11750000000000001`", ",", 
   "0.11760000000000001`", ",", "0.1177`", ",", "0.1178`", ",", "0.1179`", 
   ",", "0.11800000000000001`", ",", "0.11810000000000001`", ",", "0.1182`", 
   ",", "0.1183`", ",", "0.1184`", ",", "0.11850000000000001`", ",", 
   "0.11860000000000001`", ",", "0.1187`", ",", "0.1188`", ",", "0.1189`", 
   ",", "0.11900000000000001`", ",", "0.11910000000000001`", ",", "0.1192`", 
   ",", "0.1193`", ",", "0.1194`", ",", "0.11950000000000001`", ",", 
   "0.11960000000000001`", ",", "0.1197`", ",", "0.1198`", ",", "0.1199`", 
   ",", "0.12000000000000001`", ",", "0.12010000000000001`", ",", "0.1202`", 
   ",", "0.1203`", ",", "0.12040000000000001`", ",", "0.12050000000000001`", 
   ",", "0.1206`", ",", "0.1207`", ",", "0.1208`", ",", 
   "0.12090000000000001`", ",", "0.12100000000000001`", ",", "0.1211`", ",", 
   "0.1212`", ",", "0.1213`", ",", "0.12140000000000001`", ",", 
   "0.12150000000000001`", ",", "0.1216`", ",", "0.1217`", ",", "0.1218`", 
   ",", "0.12190000000000001`", ",", "0.12200000000000001`", ",", "0.1221`", 
   ",", "0.1222`", ",", "0.1223`", ",", "0.12240000000000001`", ",", 
   "0.12250000000000001`", ",", "0.1226`", ",", "0.1227`", ",", "0.1228`", 
   ",", "0.12290000000000001`", ",", "0.12300000000000001`", ",", "0.1231`", 
   ",", "0.1232`", ",", "0.1233`", ",", "0.12340000000000001`", ",", 
   "0.12350000000000001`", ",", "0.1236`", ",", "0.1237`", ",", 
   "0.12380000000000001`", ",", "0.12390000000000001`", ",", "0.124`", ",", 
   "0.1241`", ",", "0.1242`", ",", "0.12430000000000001`", ",", 
   "0.12440000000000001`", ",", "0.1245`", ",", "0.1246`", ",", "0.1247`", 
   ",", "0.12480000000000001`", ",", "0.12490000000000001`", ",", "0.125`", 
   ",", "0.12510000000000002`", ",", "0.1252`", ",", "0.1253`", ",", 
   "0.1254`", ",", "0.1255`", ",", "0.12560000000000002`", ",", "0.1257`", 
   ",", "0.1258`", ",", "0.1259`", ",", "0.126`", ",", "0.12610000000000002`",
    ",", "0.1262`", ",", "0.1263`", ",", "0.1264`", ",", "0.1265`", ",", 
   "0.12660000000000002`", ",", "0.1267`", ",", "0.1268`", ",", "0.1269`", 
   ",", "0.127`", ",", "0.12710000000000002`", ",", "0.1272`", ",", "0.1273`",
    ",", "0.1274`", ",", "0.1275`", ",", "0.12760000000000002`", ",", 
   "0.1277`", ",", "0.1278`", ",", "0.1279`", ",", "0.128`", ",", 
   "0.12810000000000002`", ",", "0.1282`", ",", "0.1283`", ",", 
   "0.12840000000000001`", ",", "0.1285`", ",", "0.1286`", ",", "0.1287`", 
   ",", "0.1288`", ",", "0.12890000000000001`", ",", "0.129`", ",", "0.1291`",
    ",", "0.1292`", ",", "0.1293`", ",", "0.12940000000000002`", ",", 
   "0.1295`", ",", "0.1296`", ",", "0.1297`", ",", "0.1298`", ",", 
   "0.12990000000000002`", ",", "0.13`"}], "}"}]], "Output",
 CellChangeTimes->{3.518568316751688*^9, 3.518570797620853*^9, 
  3.51857438020139*^9, 3.518574978618131*^9, 3.5185781325270786`*^9}],

Cell[BoxData["1201"], "Output",
 CellChangeTimes->{3.518568316751688*^9, 3.518570797620853*^9, 
  3.51857438020139*^9, 3.518574978618131*^9, 3.5185781325971794`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "mseinList", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"varoutList", "[", 
     RowBox[{"[", "i", "]"}], "]"}], "=", 
    RowBox[{"var", "[", 
     RowBox[{"mseinList", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"normvarout", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "-", "varoutList"}], ")"}], "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.5185014042280254`*^9, 3.5185014071722593`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.9184653865522705`*^-13"}], ",", 
   RowBox[{"-", "1.9095836023552692`*^-13"}], ",", 
   RowBox[{"-", "1.8340884366807586`*^-13"}], ",", 
   RowBox[{"-", "1.7563728249569976`*^-13"}], ",", 
   RowBox[{"-", "1.687538997430238`*^-13"}], ",", 
   RowBox[{"-", "1.645350522494482`*^-13"}], ",", 
   RowBox[{"-", "1.603162047558726`*^-13"}], ",", 
   RowBox[{"-", "1.5831780331154732`*^-13"}], ",", 
   RowBox[{"-", "1.5720758028692217`*^-13"}], ",", 
   RowBox[{"-", "1.5853984791647235`*^-13"}], ",", 
   RowBox[{"-", "1.6231460620019789`*^-13"}], ",", 
   RowBox[{"-", "1.6697754290362354`*^-13"}], ",", 
   RowBox[{"-", "1.751931932858497`*^-13"}], ",", 
   RowBox[{"-", "1.8407497748285095`*^-13"}], ",", 
   RowBox[{"-", "1.949551631241775`*^-13"}], ",", 
   RowBox[{"-", "2.0805579481475434`*^-13"}], ",", 
   RowBox[{"-", "2.233768725545815`*^-13"}], ",", 
   RowBox[{"-", "2.402522625288839`*^-13"}], ",", 
   RowBox[{"-", "2.5934809855243657`*^-13"}], ",", 
   RowBox[{"-", "2.6489921367556235`*^-13"}], ",", 
   RowBox[{"-", "2.8554936193359026`*^-13"}], ",", 
   RowBox[{"-", "3.079758670310184`*^-13"}], ",", 
   RowBox[{"-", "3.312905505481467`*^-13"}], ",", 
   RowBox[{"-", "3.568256801145253`*^-13"}], ",", 
   RowBox[{"-", "3.8258285428582894`*^-13"}], ",", 
   RowBox[{"-", "4.085620730620576`*^-13"}], ",", 
   RowBox[{"-", "4.3587355946783646`*^-13"}], ",", 
   RowBox[{"-", "4.627409566637652`*^-13"}], ",", 
   RowBox[{"-", "4.902744876744691`*^-13"}], ",", 
   RowBox[{"-", "5.162537064506978`*^-13"}], ",", 
   RowBox[{"-", "5.233591338082988`*^-13"}], ",", 
   RowBox[{"-", "5.468958619303521`*^-13"}], ",", 
   RowBox[{"-", "5.702105454474804`*^-13"}], ",", 
   RowBox[{"-", "5.915268275202834`*^-13"}], ",", 
   RowBox[{"-", "6.106226635438361`*^-13"}], ",", 
   RowBox[{"-", "6.274980535181385`*^-13"}], ",", 
   RowBox[{"-", "6.405986852087153`*^-13"}], ",", 
   RowBox[{"-", "6.503686478254167`*^-13"}], ",", 
   RowBox[{"-", "6.565858967633176`*^-13"}], ",", 
   RowBox[{"-", "6.590283874174929`*^-13"}], ",", 
   RowBox[{"-", "6.570299859731676`*^-13"}], ",", 
   RowBox[{"-", "6.508127370352668`*^-13"}], ",", 
   RowBox[{"-", "6.3860028376439`*^-13"}], ",", 
   RowBox[{"-", "6.217248937900877`*^-13"}], ",", 
   RowBox[{"-", "5.995204332975845`*^-13"}], ",", 
   RowBox[{"-", "5.708766792622555`*^-13"}], ",", 
   RowBox[{"-", "5.371258993136507`*^-13"}], ",", 
   RowBox[{"-", "4.96713781217295`*^-13"}], ",", 
   RowBox[{"-", "4.5008441418303846`*^-13"}], ",", 
   RowBox[{"-", "3.97015753605956`*^-13"}], ",", 
   RowBox[{"-", "3.375077994860476`*^-13"}], ",", 
   RowBox[{"-", "2.7111646261346323`*^-13"}], ",", 
   RowBox[{"-", "1.9806378759312793`*^-13"}], ",", 
   RowBox[{"-", "1.1834977442504169`*^-13"}], ",", 
   RowBox[{"-", "3.352873534367973`*^-14"}], ",", "5.928590951498336`*^-14", 
   ",", "1.5698553568199713`*^-13", ",", "2.617905892066119`*^-13", ",", 
   "3.715916463420399`*^-13", ",", "4.879430193227563`*^-13", ",", 
   "6.087352844019733`*^-13", ",", "7.350786646043161`*^-13", ",", 
   "8.65307825392847`*^-13", ",", "1.000310945187266`*^-12", ",", 
   "1.1386447340555605`*^-12", ",", "1.2805312366026556`*^-12", ",", 
   "1.425748408223626`*^-12", ",", "1.5725198920790717`*^-12", ",", 
   "1.7212897773788427`*^-12", ",", "1.872058064122939`*^-12", ",", 
   "2.02260430626211`*^-12", ",", "2.1738166822160565`*^-12", ",", 
   "2.3245849689601528`*^-12", ",", "2.475575300309174`*^-12", ",", 
   "2.3616852917740516`*^-10", ",", "2.7715607586742408`*^-12", ",", 
   "2.915667707270586`*^-12", ",", "3.0582203436324562`*^-12", ",", 
   "3.197220266315526`*^-12", ",", "3.332667475319795`*^-12", ",", 
   "3.4645619706452635`*^-12", ",", "3.592348640779619`*^-12", ",", 
   "3.715694418815474`*^-12", ",", "3.835931572382378`*^-12", ",", 
   "3.95117272233847`*^-12", ",", "4.062528091708373`*^-12", ",", 
   "4.169775635887163`*^-12", ",", "4.274358644806853`*^-12", ",", 
   "4.3752779177452794`*^-12", ",", "4.473976744634456`*^-12", ",", 
   "4.571898415406395`*^-12", ",", "4.667599640129083`*^-12", ",", 
   "4.763966998666547`*^-12", ",", "4.863442981672961`*^-12", ",", 
   "4.966471678358175`*^-12", ",", "5.0743853563517405`*^-12", ",", 
   "5.189737528610294`*^-12", ",", "5.314415574275699`*^-12", ",", 
   "5.452749363143994`*^-12", ",", "5.6066262743570405`*^-12", ",", 
   "5.779043910081327`*^-12", ",", "5.973999073205505`*^-12", ",", 
   "6.196598789642849`*^-12", ",", "6.4510619068869346`*^-12", ",", 
   "6.741385227826413`*^-12", ",", "7.07489622442381`*^-12", ",", 
   "7.456812944894864`*^-12", ",", "7.895017972714413`*^-12", ",", 
   "8.395506512215434`*^-12", ",", "8.967604436804777`*^-12", ",", 
   "9.619416374562206`*^-12", ",", "1.0361489444221661`*^-11", ",", 
   "1.1203815653004767`*^-11", ",", "1.2157164164250389`*^-11", ",", 
   "1.3235190721161416`*^-11", ",", "1.4451440044638275`*^-11", ",", 
   "1.582023401169863`*^-11", ",", "1.7356782677779847`*^-11", ",", 
   "1.9079626767393165`*^-11", ",", "2.1005863715117812`*^-11", ",", 
   "2.3156254691514278`*^-11", ",", "2.5552671090167678`*^-11", ",", 
   "2.821709532696559`*^-11", ",", "3.1176394799103946`*^-11", ",", 
   "3.4456215658451583`*^-11", ",", "3.808642290437092`*^-11", ",", 
   "4.209643744701452`*^-11", ",", "4.652200846777532`*^-11", ",", 
   "5.139710879120685`*^-11", ",", "5.6762150535405453`*^-11", ",", 
   "6.265610252853548`*^-11", ",", "6.91247059592115`*^-11", ",", 
   "7.62150342836776`*^-11", ",", "8.397782469415915`*^-11", ",", 
   "9.246625687353571`*^-11", ",", "1.0173817344139024`*^-10", ",", 
   "1.1185674608782392`*^-10", ",", "1.2288614570366008`*^-10", ",", 
   "1.3489609429484517`*^-10", ",", "1.4796430747310296`*^-10", ",", 
   "1.621673906271326`*^-10", ",", "1.7759127501904004`*^-10", ",", 
   "1.943254446246101`*^-10", ",", "2.124678211146147`*^-10", ",", 
   "2.3211832456127013`*^-10", ",", "2.5338597886559455`*^-10", ",", 
   "2.763856921106367`*^-10", ",", "3.012389226952905`*^-10", ",", 
   "3.2807534466883226`*^-10", ",", "3.5703229261940805`*^-10", ",", 
   "3.8825409554021917`*^-10", ",", "4.2189496340938604`*^-10", ",", 
   "4.5811754390001624`*^-10", ",", "4.97093033402507`*^-10", ",", 
   "5.390026203144771`*^-10", ",", "5.840404826429335`*^-10", ",", 
   "6.324074597330309`*^-10", ",", "6.843177136062195`*^-10", ",", 
   "7.399969526034056`*^-10", ",", "7.996832085410688`*^-10", ",", 
   "8.636269477335645`*^-10", ",", "9.320932914391733`*^-10", ",", 
   "1.005357797012607`*^-9", ",", "1.0837163388899285`*^-9", ",", 
   "1.167473895336002`*^-9", ",", "1.2569549845409256`*^-9", ",", 
   "1.352499223727932`*^-9", ",", "1.4544635495994385`*^-9", ",", 
   "1.5632235506046754`*^-9", ",", "1.6791721346720578`*^-9", ",", 
   "1.802723192945166`*^-9", ",", "1.9343072699129493`*^-9", ",", 
   "2.0743793349708994`*^-9", ",", "2.223413897439741`*^-9", ",", 
   "2.3819084482568087`*^-9", ",", "2.550383793042954`*^-9", ",", 
   "2.7293849402809656`*^-9", ",", "2.9194822115385932`*^-9", ",", 
   "3.1212703532901287`*^-9", ",", "3.335372533719294`*^-9", ",", 
   "3.5624379002285878`*^-9", ",", "3.803147574643617`*^-9", ",", 
   "4.058208658008766`*^-9", ",", "4.3283621131706695`*^-9", ",", 
   "4.614377990819207`*^-9", ",", "4.917060980602628`*^-9", ",", 
   "5.2372504111275475`*^-9", ",", "5.575818029512902`*^-9", ",", 
   "5.933674218638885`*^-9", ",", "6.311765332611685`*^-9", ",", 
   "6.711077471521776`*^-9", ",", "7.1326358153100955`*^-9", ",", 
   "7.577505733991075`*^-9", ",", "8.046797006500128`*^-9", ",", 
   "8.54166037900228`*^-9", ",", "9.0632936711188`*^-9", ",", 
   "9.612939111391938`*^-9", ",", "1.0191887334087824`*^-8", ",", 
   "1.0801479266575598`*^-8", ",", "1.1443102465591437`*^-8", ",", 
   "1.2118201109245774`*^-8", ",", "1.2828268225462125`*^-8", ",", 
   "1.3574853463538261`*^-8", ",", "1.4359563205168513`*^-8", ",", 
   "1.518406067546607`*^-8", ",", "1.6050067275230617`*^-8", ",", 
   "1.695936835410805`*^-8", ",", "1.7913808880720694`*^-8", ",", 
   "1.891529921582702`*^-8", ",", "1.9965815223343952`*^-8", ",", 
   "2.10673996026145`*^-8", ",", "2.2222165219076828`*^-8", ",", 
   "2.343229477119735`*^-8", ",", "2.4700044010117495`*^-8", ",", 
   "2.602774351601056`*^-8", ",", "2.7417798698081697`*^-8", ",", 
   "2.8872694235460017`*^-8", ",", "3.039499285595326`*^-8", ",", 
   "3.198734188636365`*^-8", ",", "3.3652469033640386`*^-8", ",", 
   "3.53931890462178`*^-8", ",", "3.721240393605996`*^-8", ",", 
   "3.911310519910671`*^-8", ",", "4.109837425936291`*^-8", ",", 
   "4.3171387575924314`*^-8", ",", "4.533541630991067`*^-8", ",", 
   "4.75938291000233`*^-8", ",", "4.99500928397012`*^-8", ",", 
   "5.2407777229035446`*^-8", ",", "5.497055388659078`*^-8", ",", 
   "5.764220367687756`*^-8", ",", "6.042661127025895`*^-8", ",", 
   "6.33277736916682`*^-8", ",", "6.634979776709571`*^-8", ",", 
   "6.949690789515017`*^-8", ",", "7.277344349354564`*^-8", ",", 
   "7.618386077545836`*^-8", ",", "7.973274085415483`*^-8", ",", 
   "8.342478552414434`*^-8", ",", "8.726482136900415`*^-8", ",", 
   "9.125780686680685`*^-8", ",", "9.540882506264836`*^-8", ",", 
   "9.97230968913243`*^-8", ",", "1.0420597451599178`*^-7", ",", 
   "1.0886297019396807`*^-7", ",", "1.1369967045649076`*^-7", ",", 
   "1.1872186933548079`*^-7", ",", "1.2393548309841407`*^-7", ",", 
   "1.2934657478425038`*^-7", ",", "1.3496135820023625`*^-7", ",", 
   "1.4078619536839199`*^-7", ",", "1.4682760518525129`*^-7", ",", 
   "1.5309226142345977`*^-7", ",", "1.5958699850493474`*^-7", ",", 
   "1.6631881272211047`*^-7", ",", "1.7329485979544756`*^-7", ",", 
   "1.8052246686384166`*^-7", ",", "1.8800912893190969`*^-7", ",", 
   "1.9576251031327985`*^-7", ",", "2.0379045195806356`*^-7", ",", 
   "2.121009696764986`*^-7", ",", "2.2070225902393048`*^-7", ",", 
   "2.2960269685512458`*^-7", ",", "2.388108442108461`*^-7", ",", 
   "2.48335448538306`*^-7", ",", "2.5818544746591954`*^-7", ",", 
   "2.68369969580462`*^-7", ",", "2.788983375356935`*^-7", ",", 
   "2.897800723822286`*^-7", ",", "3.0102489356753637`*^-7", ",", 
   "3.126427219335426`*^-7", ",", "3.2464368371343255`*^-7", ",", 
   "3.370381136402756`*^-7", ",", "3.498365539478243`*^-7", ",", 
   "3.6304976114287513`*^-7", ",", "3.7668870533913434`*^-7", ",", 
   "3.907645746981103`*^-7", ",", "4.052887778716041`*^-7", ",", 
   "4.202729328994792`*^-7", ",", "4.357289202783221`*^-7", ",", 
   "4.516688130173918`*^-7", ",", "4.681049238230983`*^-7", ",", 
   "4.850498005470882`*^-7", ",", "5.025162250760218`*^-7", ",", 
   "5.20517218549621`*^-7", ",", "5.39066042248848`*^-7", ",", 
   "5.581761998163515`*^-7", ",", "5.778614415863359`*^-7", ",", 
   "5.981357651396735`*^-7", ",", "6.190134187455953`*^-7", ",", 
   "6.405089045813384`*^-7", ",", "6.626355417704843`*^-7", ",", 
   "6.85411478462683`*^-7", ",", "7.088502944618824`*^-7", ",", 
   "7.32967529115669`*^-7", ",", "7.577789864487983`*^-7", ",", 
   "7.83300739604087`*^-7", ",", "8.095491310644576`*^-7", ",", 
   "8.365407757615628`*^-7", ",", "8.642925637403209`*^-7", ",", 
   "8.928216657100307`*^-7", ",", "9.221455294916581`*^-7", ",", 
   "9.52281884902817`*^-7", ",", "9.832487477545726`*^-7", ",", 
   "1.0150644218498428`*^-6", ",", "1.047747498317264`*^-6", ",", 
   "1.0813168610512847`*^-6", ",", "1.1157916874893203`*^-6", ",", 
   "1.1511914528306022`*^-6", ",", "1.1875359282598197`*^-6", ",", 
   "1.224845188829704`*^-6", ",", "1.263139610019337`*^-6", ",", 
   "1.3024398728411768`*^-6", ",", "1.3427669685039945`*^-6", ",", 
   "1.3841421933058484`*^-6", ",", "1.426587158848136`*^-6", ",", 
   "1.4701237897041253`*^-6", ",", "1.5147743245291778`*^-6", ",", 
   "1.5605651880745697`*^-6", ",", "1.6075152431405115`*^-6", ",", 
   "1.6556439836890036`*^-6", ",", "1.704978801031487`*^-6", ",", 
   "1.7555435296578992`*^-6", ",", "1.8073623584413667`*^-6", ",", 
   "1.8604597953331137`*^-6", ",", "1.9148606831276282`*^-6", ",", 
   "1.9705901963540384`*^-6", ",", "2.0276706025335045`*^-6", ",", 
   "2.0861343050793124`*^-6", ",", "2.1460041820242637`*^-6", ",", 
   "2.2073037140302176`*^-6", ",", "2.2700659385588295`*^-6", ",", 
   "2.3343149591070755`*^-6", ",", "2.4000783418465232`*^-6", ",", 
   "2.4673840020028592`*^-6", ",", "2.536260201635443`*^-6", ",", 
   "2.6067355569647788`*^-6", ",", "2.6788390379284266`*^-6", ",", 
   "2.752599968847136`*^-6", ",", "2.8280480320885815`*^-6", ",", 
   "2.9052132650697615`*^-6", ",", "2.984126069693893`*^-6", ",", 
   "3.06481720402374`*^-6", ",", "3.1473177930507745`*^-6", ",", 
   "3.2316593241432656`*^-6", ",", "3.3178736502659234`*^-6", ",", 
   "3.4059929929775024`*^-6", ",", "3.4960499393221767`*^-6", ",", 
   "3.588077449823146`*^-6", ",", "3.6821088535976543`*^-6", ",", 
   "3.7781778527978815`*^-6", ",", "3.87631852194481`*^-6", ",", 
   "3.976565313701386`*^-6", ",", "4.078953054098555`*^-6", ",", 
   "4.183516945976962`*^-6", ",", "4.2902925727617`*^-6", ",", 
   "4.399315896463918`*^-6", ",", "4.510623257791835`*^-6", ",", 
   "4.6242513824790166`*^-6", ",", "4.7402373761773475`*^-6", ",", 
   "4.858618728897923`*^-6", ",", "4.979433316121273`*^-6", ",", 
   "5.1027193972430496`*^-6", ",", "5.228515618904694`*^-6", ",", 
   "5.35686101588162`*^-6", ",", "5.487795008862761`*^-6", ",", 
   "5.621357410001693`*^-6", ",", "5.757588419363913`*^-6", ",", 
   "5.896528626703201`*^-6", ",", "6.038219016346602`*^-6", ",", 
   "6.182700961199217`*^-6", ",", "6.330016227185098`*^-6", ",", 
   "6.4802069745795166`*^-6", ",", "6.63331575645465`*^-6", ",", 
   "6.789385519900826`*^-6", ",", "6.948459607913904`*^-6", ",", 
   "7.110581758063006`*^-6", ",", "7.275796102712562`*^-6", ",", 
   "7.444147172686044`*^-6", ",", "7.615679893602234`*^-6", ",", 
   "7.79043958831771`*^-6", ",", "7.968471977815028`*^-6", ",", 
   "8.149823179870452`*^-6", ",", "8.334539711385425`*^-6", ",", 
   "8.522668485388962`*^-6", ",", "8.714256814701393`*^-6", ",", 
   "8.909352411157201`*^-6", ",", "9.108003384383778`*^-6", ",", 
   "9.310258244021874`*^-6", ",", "9.516165897283102`*^-6", ",", 
   "9.725775651503454`*^-6", ",", "9.939137211478766`*^-6", ",", 
   "0.000010156300683794584`", ",", "0.000010377316572718343`", ",", 
   "0.000010602235780643454`", ",", "0.000010831109611197931`", ",", 
   "0.00001106398976313816`", ",", "0.000011300928339452732`", ",", 
   "0.000011541977836704298`", ",", "0.00001178719115157989`", ",", 
   "0.000012036621579891715`", ",", "0.000012290322814134669`", ",", 
   "0.00001254834894393042`", ",", "0.000012810754457692752`", ",", 
   "0.00001307759423996302`", ",", "0.00001334892357118811`", ",", 
   "0.000013624798129052706`", ",", "0.000013905273986591915`", ",", 
   "0.000014190407611636147`", ",", "0.00001448025586725521`", ",", 
   "0.000014774876010648086`", ",", "0.00001507432569303191`", ",", 
   "0.000015378662958864808`", ",", "0.00001568794624307035`", ",", 
   "0.000016002234375589452`", ",", "0.00001632158657671745`", ",", 
   "0.000016646062454772625`", ",", "0.000016975722012313454`", ",", 
   "0.00001731062563603558`", ",", "0.0000176508341056536`", ",", 
   "0.000017996408585574386`", ",", "0.00001834741062789469`", ",", 
   "0.00001870390217084683`", ",", "0.000019065945538132567`", ",", 
   "0.00001943360343470424`", ",", "0.000019806938952537934`", ",", 
   "0.000020186015564860327`", ",", "0.00002057089712370619`", ",", 
   "0.0000209616478654695`", ",", "0.000021358332402465763`", ",", 
   "0.000021761015727150834`", ",", "0.00002216976320768005`", ",", 
   "0.000022584640591460925`", ",", "0.000023005713996493427`", ",", 
   "0.000023433049918253346`", ",", "0.000023866715221920742`", ",", 
   "0.000024306777146820835`", ",", "0.00002475330330109493`", ",", 
   "0.000025206361662144516`", ",", "0.00002566602057596512`", ",", 
   "0.000026132348753038492`", ",", "0.00002660541527166327`", ",", 
   "0.000027085289571182614`", ",", "0.000027572041252255097`", ",", 
   "0.000028065740944382966`", ",", "0.00002856645890980669`", ",", 
   "0.000029074266031936524`", ",", "0.000029589233549454086`", ",", 
   "0.00003011143305753361`", ",", "0.00003064093650528843`", ",", 
   "0.0000311778161938836`", ",", "0.000031722144775869765`", ",", 
   "0.00003227399525418395`", ",", "0.00003283344097693153`", ",", 
   "0.00003340055564193811`", ",", "0.00003397541328853393`", ",", 
   "0.00003455808830044038`", ",", "0.00003514865540432677`", ",", 
   "0.000035747189664481205`", ",", "0.00003635376648492006`", ",", 
   "0.000036968461604725`", ",", "0.000037591351099042214`", ",", 
   "0.00003822251137508559`", ",", "0.000038862019171914675`", ",", 
   "0.00003950995155777015`", ",", "0.000040166385928741555`", ",", 
   "0.00004083140000721297`", ",", "0.00004150507184008667`", ",", 
   "0.00004218747979445325`", ",", "0.000042878702560700255`", ",", 
   "0.00004357881914618389`", ",", "0.00004428790887567313`", ",", 
   "0.00004500605138801905`", ",", "0.000045733326636154814`", ",", 
   "0.00004646981488309887`", ",", "0.0000472155967016219`", ",", 
   "0.000047970752971582264`", ",", "0.0000487353648778166`", ",", 
   "0.000049509513908918557`", ",", "0.000050293283391456`", ",", 
   "0.00005108675237641691`", ",", "0.0000518900047481452`", ",", 
   "0.000052703123189612455`", ",", "0.00005352619067466868`", ",", 
   "0.000054359290468708465`", ",", "0.00005520250612578437`", ",", 
   "0.00005605592148705263`", ",", "0.00005691962067966294`", ",", 
   "0.00005779368811320573`", ",", "0.000058678208476603544`", ",", 
   "0.00005957326673811103`", ",", "0.00006047894814242838`", ",", 
   "0.00006139533820892495`", ",", "0.00006232252272808658`", ",", 
   "0.00006326058776195964`", ",", "0.00006420961963793381`", ",", 
   "0.0000651697049518507`", ",", "0.0000661409305597882`", ",", 
   "0.00006712338358250136`", ",", "0.00006811715139609653`", ",", 
   "0.0000691223216362502`", ",", "0.0000701389821911036`", ",", 
   "0.00007116722120281693`", ",", "0.00007220712706179633`", ",", 
   "0.00007325878840780398`", ",", "0.0000743222941256283`", ",", 
   "0.00007539773334230837`", ",", "0.0000764851954269119`", ",", 
   "0.0000775847699865384`", ",", "0.00007869654686487593`", ",", 
   "0.00007982061613898139`", ",", "0.00008095706811883652`", ",", 
   "0.00008210599334401714`", ",", "0.00008326748257891925`", ",", 
   "0.00008444162681531253`", ",", "0.00008562851726545695`", ",", 
   "0.00008682824536354605`", ",", "0.00008804090275948973`", ",", 
   "0.00008926658132024645`", ",", "0.00009050537312460527`", ",", 
   "0.00009175737046374088`", ",", "0.00009302266583488539`", ",", 
   "0.00009430135194288258`", ",", "0.00009559352169641322`", ",", 
   "0.00009689926820244388`", ",", "0.00009821868477088991`", ",", 
   "0.00009955186490540058`", ",", "0.00010089890230424725`", ",", 
   "0.00010225989085776988`", ",", "0.00010363492464593449`", ",", 
   "0.00010502409793300416`", ",", "0.00010642750517164679`", ",", 
   "0.00010784524099405335`", ",", "0.0001092774002120489`", ",", 
   "0.00011072407781620441`", ",", "0.0001121853689706187`", ",", 
   "0.00011366136901158619`", ",", "0.00011515217344637563`", ",", 
   "0.00011665787795089866`", ",", "0.00011817857836349255`", ",", 
   "0.00011971437068680757`", ",", "0.00012126535108425429`", ",", 
   "0.00012283161587656188`", ",", "0.00012441326154044585`", ",", 
   "0.00012601038470472226`", ",", "0.00012762308214986362`", ",", 
   "0.00012925145080466827`", ",", "0.00013089558774348475`", ",", 
   "0.00013255559018310326`", ",", "0.00013423155548331067`", ",", 
   "0.00013592357863756455`", ",", "0.00013763176229453222`", ",", 
   "0.000139356201710239`", ",", "0.00014109699478392912`", ",", 
   "0.0001428542395424115`", ",", "0.00014462803413994862`", ",", 
   "0.000146418476855259`", ",", "0.00014822566608785337`", ",", 
   "0.00015004970035736864`", ",", "0.0001518906782984608`", ",", 
   "0.00015374869866346952`", ",", "0.00015562386031386932`", ",", 
   "0.0001575162622227122`", ",", "0.00015942600346929847`", ",", 
   "0.00016135318323806658`", ",", "0.00016329790081559548`", ",", 
   "0.00016526025558949442`", ",", "0.00016724034704385105`", ",", 
   "0.00016923827476000852`", ",", "0.00017125413840946013`", ",", 
   "0.00017328803775740198`", ",", "0.0001753400726542953`", ",", 
   "0.00017741034303875303`", ",", "0.00017949894893132257`", ",", 
   "0.00018160599043481884`", ",", "0.00018373156772988342`", ",", 
   "0.00018587578107387426`", ",", "0.0001880387307986453`", ",", 
   "0.0001902205173057725`", ",", "0.00019242124106977343`", ",", 
   "0.00019464100262878148`", ",", "0.0001968799025875434`", ",", 
   "0.00019913804161253434`", ",", "0.00020141552043018152`", ",", 
   "0.0002037124398246437`", ",", "0.00020602890063559087`", ",", 
   "0.0002083650037566498`", ",", "0.0002107208501304081`", ",", 
   "0.0002130965407493024`", ",", "0.00021549217665195464`", ",", 
   "0.0002179078589201744`", ",", "0.00022034368867851484`", ",", 
   "0.00022279976708894367`", ",", "0.0002252761953533966`", ",", 
   "0.00022777307293453397`", ",", "0.00023029050466738532`", ",", 
   "0.00023282859005480105`", ",", "0.00023538743042283983`", ",", 
   "0.00023796712712387258`", ",", "0.0002405677815344731`", ",", 
   "0.0002431894950505331`", ",", "0.00024583236908926054`", ",", 
   "0.0002484965050835175`", ",", "0.00025118200448126515`", ",", 
   "0.0002538889687442314`", ",", "0.00025661749934169364`", ",", 
   "0.00025936769775536384`", ",", "0.00026213966546928535`", ",", 
   "0.0002649335039720535`", ",", "0.00026774931475559427`", ",", 
   "0.0002705871993097242`", ",", "0.00027344725912281653`", ",", 
   "0.0002763295956780265`", ",", "0.00027923431045062674`", ",", 
   "0.00028216150490933956`", ",", "0.0002851112805097866`", ",", 
   "0.0002880837386940449`", ",", "0.0002910789808914238`", ",", 
   "0.0002940971085116928`", ",", "0.0002971382229445263`", ",", 
   "0.00030020242556072496`", ",", "0.0003032898177051102`", ",", 
   "0.0003064005006974124`", ",", "0.0003095345758299395`", ",", 
   "0.00031269214436613346`", ",", "0.0003158733075343534`", ",", 
   "0.00031907816653387044`", ",", "0.0003223068225230996`", ",", 
   "0.000325559376626261`", ",", "0.0003288359299277177`", ",", 
   "0.00033213658346609165`", ",", "0.0003354614382403698`", ",", 
   "0.0003388105952014664`", ",", "0.0003421841552536664`", ",", 
   "0.00034558221924996246`", ",", "0.00034900488799349816`", ",", 
   "0.00035245226223379333`", ",", "0.0003559244426620811`", ",", 
   "0.00035942152991541576`", ",", "0.00036294362456845697`", ",", 
   "0.00036649082704343083`", ",", "0.00037006323798005614`", ",", 
   "0.0003736609576696637`", ",", "0.00037728408643211697`", ",", 
   "0.0003809327245192229`", ",", "0.0003846069721092915`", ",", 
   "0.000388306929311355`", ",", "0.0003920326961559528`", ",", 
   "0.000395784372602459`", ",", "0.00039956205852820226`", ",", 
   "0.00040336585373235145`", ",", "0.00040719585793258517`", ",", 
   "0.00041105217076231604`", ",", "0.00041493489176958054`", ",", 
   "0.00041884412041726105`", ",", "0.00042277995607720165`", ",", 
   "0.00042674249803131836`", ",", "0.0004307318454698228`", ",", 
   "0.00043474809748844656`", ",", "0.0004387913530875531`", ",", 
   "0.00044286171117047246`", ",", "0.00044695927053906015`", ",", 
   "0.000451084129896584`", ",", "0.0004552363878442822`", ",", 
   "0.00045941614287714483`", ",", "0.0004636234933849126`", ",", 
   "0.00046785853764941265`", ",", "0.0004721213738450025`", ",", 
   "0.00047641210003357415`", ",", "0.00048073081416433183`", ",", 
   "0.00048507761407290406`", ",", "0.0004894525974804553`", ",", 
   "0.000493855861988135`", ",", "0.0004982875050806301`", ",", 
   "0.0005027476241212803`", ",", "0.0005072363163509674`", ",", 
   "0.0005117536788872279`", ",", "0.0005162998087219206`", ",", 
   "0.0005208748027212273`", ",", "0.000525478757622655`", ",", 
   "0.0005301117700341473`", ",", "0.0005347739364309767`", ",", 
   "0.0005394653531569649`", ",", "0.0005441861164228179`", ",", 
   "0.0005489363223011301`", ",", "0.0005537160667268282`", ",", 
   "0.0005585254455000577`", ",", "0.0005633645542763022`", ",", 
   "0.0005682334885726004`", ",", "0.0005731323437612179`", ",", 
   "0.0005780612150702025`", ",", "0.0005830201975833837`", ",", 
   "0.0005880093862342672`", ",", "0.0005930288758112523`", ",", 
   "0.0005980787609498606`", ",", "0.0006031591361355115`", ",", 
   "0.0006082700957001919`", ",", "0.0006134117338225664`", ",", 
   "0.0006185841445253137`", ",", "0.0006237874216746819`", ",", 
   "0.0006290216589783793`", ",", "0.0006342869499837978`", ",", 
   "0.0006395833880795676`", ",", "0.0006449110664914492`", ",", 
   "0.0006502700782813342`", ",", "0.0006556605163464679`", ",", 
   "0.0006610824734197829`", ",", "0.0006665360420644584`", ",", 
   "0.0006720213146772513`", ",", "0.0006775383834852766`", ",", 
   "0.0006830873405440085`", ",", "0.0006886682777369479`", ",", 
   "0.0006942812867749559`", ",", "0.0006999264591942556`", ",", 
   "0.0007056038863547665`", ",", "0.0007113136594396607`", ",", 
   "0.0007170558694556961`", ",", "0.0007228306072283308`", ",", 
   "0.0007286379634038331`", ",", "0.000734478028447727`", ",", 
   "0.0007403508926411284`", ",", "0.0007462566460827436`", ",", 
   "0.0007521953786862046`", ",", "0.0007581671801800693`", ",", 
   "0.0007641721401032697`", ",", "0.0007702103478106626`", ",", 
   "0.0007762818924638148`", ",", "0.000782386863036888`", ",", 
   "0.0007885253483129739`", ",", "0.0007946974368802096`", ",", 
   "0.0008009032171358843`", ",", "0.0008071427772819995`", ",", 
   "0.0008134162053019534`", ",", "0.000819723589053134`", ",", 
   "0.0008260650161241445`", ",", "0.0008324405739308371`", ",", 
   "0.0008388503496875588`", ",", "0.0008452944304089272`", ",", 
   "0.0008517729029091647`", ",", "0.0008582858537999893`", ",", 
   "0.0008648333694885046`", ",", "0.0008714155361800868`", ",", 
   "0.0008780324398731665`", ",", "0.0008846841663621152`", ",", 
   "0.0008913708012314725`", ",", "0.0008980924298613857`", ",", 
   "0.0009048491374212819`", ",", "0.0009116410088714222`", ",", 
   "0.0009184681289629015`", ",", "0.0009253305822336522`", ",", 
   "0.000932228453011219`", ",", "0.0009391618254093181`", ",", 
   "0.0009461307833280586`", ",", "0.0009531354104534984`", ",", 
   "0.0009601757902557573`", ",", "0.0009672520059887946`", ",", 
   "0.000974364140690076`", ",", "0.0009815122771781315`", ",", 
   "0.0009886964980543311`", ",", "0.00099591688570011`", ",", 
   "0.0010031735222766347`", ",", "0.0010104664897243598`", ",", 
   "0.0010177958697628053`", ",", "0.001025161743886449`", ",", 
   "0.0010325641933717211`", ",", "0.0010400032992670116`", ",", 
   "0.001047479142397778`", ",", "0.0010549918033635475`", ",", 
   "0.0010625413625395819`", ",", "0.0010701279000728814`", ",", 
   "0.0010777514958837386`", ",", "0.0010854122296657387`", ",", 
   "0.0010931101808816512`", ",", "0.0011008454287666503`", ",", 
   "0.0011086180523256495`", ",", "0.0011164281303328583`", ",", 
   "0.0011242757413323368`", ",", "0.0011321609636349983`", ",", 
   "0.0011400838753194975`", ",", "0.0011480445542328965`", ",", 
   "0.0011560430779868902`", ",", "0.0011640795239613588`", ",", 
   "0.001172153969298817`", ",", "0.0011802664909088545`", ",", 
   "0.0011884171654630293`", ",", "0.0011966060693990865`", ",", 
   "0.0012048332789144078`", ",", "0.001213098869972118`", ",", 
   "0.0012214029182961994`", ",", "0.0012297454993710488`", ",", 
   "0.001238126688443586`", ",", "0.0012465465605195902`", ",", 
   "0.0012550051903669202`", ",", "0.0012635026525099624`", ",", 
   "0.001272039021235405`", ",", "0.0012806143705851314`", ",", 
   "0.0012892287743615505`", ",", "0.0012978823061233768`", ",", 
   "0.0013065750391865194`", ",", "0.0013153070466236372`", ",", 
   "0.0013240784012641393`", ",", "0.0013328891756919647`", ",", 
   "0.0013417394422479134`", ",", "0.001350629273026538`", ",", 
   "0.0013595587398774756`", ",", "0.0013685279144042273`", ",", 
   "0.0013775368679641575`", ",", "0.0013865856716677172`", ",", 
   "0.0013956743963787765`", ",", "0.0014048031127134042`", ",", 
   "0.001413971891040089`", ",", "0.0014231808014786296`", ",", 
   "0.0014324299139008012`", ",", "0.001441719297930355`", ",", 
   "0.0014510490229400208`", ",", "0.0014604191580540604`", ",", 
   "0.0014698297721467135`", ",", "0.0014792809338417534`", ",", 
   "0.0014887727115144855`", ",", "0.0014983051732857522`", ",", 
   "0.0015078783870283718`", ",", "0.0015174924203620321`", ",", 
   "0.0015271473406563985`", ",", "0.0015368432150271172`", ",", 
   "0.0015465801103394794`", ",", "0.0015563580932060894`", ",", 
   "0.0015661772299842003`", ",", "0.001576037586782486`", ",", 
   "0.0015859392294526042`", ",", "0.0015958822235946357`", ",", 
   "0.0016058666345544204`", ",", "0.001615892527423779`", ",", 
   "0.0016259599670411795`", ",", "0.0016360690179891835`", ",", 
   "0.0016462197445969995`", ",", "0.001656412210938818`", ",", 
   "0.001666646480833478`", ",", "0.0016769226178455776`", ",", 
   "0.0016872406852825872`", ",", "0.0016976007461986242`", ",", 
   "0.0017080028621689891`", ",", "0.001718447098187803`", ",", 
   "0.0017289335153090057`", ",", "0.001739462175563422`", ",", 
   "0.001750033140722529`", ",", "0.001760646472303784`", ",", 
   "0.0017713022315665183`", ",", "0.0017820004795141564`", ",", 
   "0.001792741276892884`", ",", "0.0018035246841928698`", ",", 
   "0.001814350761645045`", ",", "0.0018252195692255446`", ",", 
   "0.0018361311666520441`", ",", "0.0018470856133838698`", ",", 
   "0.0018580829686258848`", ",", "0.001869123291321939`", ",", 
   "0.001880206640159865`", ",", "0.001891333073570478`", ",", 
   "0.0019025026497250241`", ",", "0.0019137154265392864`", ",", 
   "0.0019249714616684788`", ",", "0.0019362708125111316`", ",", 
   "0.0019476135362087588`", ",", "0.0019589996896431927`", ",", 
   "0.0019704293294382502`", ",", "0.0019819025119617306`", ",", 
   "0.001993419293321086`", ",", "0.0020049797293656413`", ",", 
   "0.0020165838756879273`", ",", "0.0020282317876214595`", ",", 
   "0.0020399235202420707`", ",", "0.0020516591283665786`", ",", 
   "0.002063438666553896`", ",", "0.002075262188225402`", ",", 
   "0.0020871297491951157`", ",", "0.002099041402355728`", ",", 
   "0.0021109972012350875`", ",", "0.0021229971991009178`", ",", 
   "0.0021350414489631486`", ",", "0.002147130003574471`", ",", 
   "0.0021592629154301157`", ",", "0.0021714402367647434`", ",", 
   "0.002183662019558552`", ",", "0.0021959283155317255`", ",", 
   "0.0022082391761469866`", ",", "0.0022205946526097087`", ",", 
   "0.0022329947958686924`", ",", "0.0022454396566133905`", ",", 
   "0.002257929285275573`", ",", "0.002270463732031436`", ",", 
   "0.0022830430467999374`", ",", "0.0022956672792404653`", ",", 
   "0.002308336478757278`", ",", "0.002321050694497062`", ",", 
   "0.002333809975350487`", ",", "0.00234661436994954`", ",", 
   "0.0023594639266719675`", ",", "0.0023723586936366114`", ",", 
   "0.002385298718706741`", ",", "0.0023982840494900515`", ",", 
   "0.002411314733337666`", ",", "0.0024243908173440243`", ",", 
   "0.0024375123483484362`", ",", "0.002450679372935305`", ",", 
   "0.0024638919374309065`", ",", "0.00247715008790772`", ",", 
   "0.00249045387018354`", ",", "0.002503803329818921`", ",", 
   "0.0025171985121222873`", ",", "0.0025306394621438244`", ",", 
   "0.002544126224683252`", ",", "0.0025576588442819403`", ",", 
   "0.0025712373652284626`", ",", "0.0025848618315580385`", ",", 
   "0.0025985322870505367`", ",", "0.0026122487752345824`", ",", 
   "0.002626011339381451`", ",", "0.0026398200225121737`", ",", 
   "0.0026536748673936517`", ",", "0.002667575916540099`", ",", 
   "0.0026815232122117116`", ",", "0.002695516796417663`", ",", 
   "0.0027095567109145513`", ",", "0.002723642997206732`", ",", 
   "0.0027377756965462074`", ",", "0.0027519548499337354`", ",", 
   "0.002766180498118942`", ",", "0.0027804526815997654`", ",", 
   "0.0027947714406231228`", ",", "0.0028091368151863527`", ",", 
   "0.0028235488450341073`", ",", "0.0028380075696627927`", ",", 
   "0.0028525130283179045`", ",", "0.0028670652599964708`", ",", 
   "0.0028816643034437206`", ",", "0.0028963101971570815`", ",", 
   "0.00291100297938518`", ",", "0.0029257426881275084`", ",", 
   "0.0029405293611346472`", ",", "0.0029553630359109295`", ",", 
   "0.002970243749710111`", ",", "0.0029851715395399214`", ",", 
   "0.0030001464421600677`", ",", "0.0030151684940846746`", ",", 
   "0.003030237731578178`", ",", "0.00304535419066132`", ",", 
   "0.003060517907107263`", ",", "0.0030757289164438095`", ",", 
   "0.003090987253952404`", ",", "0.003106292954669465`", ",", 
   "0.0031216460533869395`", ",", "0.003137046584650971`", ",", 
   "0.0031524945827634543`", ",", "0.0031679900817838114`", ",", 
   "0.003183533115526105`", ",", "0.0031991237175603704`", ",", 
   "0.003214761921214615`", ",", "0.003230447759573596`", ",", 
   "0.0032461812654791533`", ",", "0.0032619624715322093`", ",", 
   "0.003277791410090103`", ",", "0.0032936681132691437`", ",", 
   "0.003309592612945167`", ",", "0.0033255649407524235`", ",", 
   "0.0033415851280835795`", ",", "0.0033576532060932696`", ",", 
   "0.0033737692056947655`", ",", "0.003389933157561531`", ",", 
   "0.0034061450921292202`", ",", "0.0034224050395925687`", ",", 
   "0.0034387130299109447`", ",", "0.003455069092801022`", ",", 
   "0.003471473257746105`", ",", "0.0034879255539899123`", ",", 
   "0.003504426010537909`", ",", "0.003520974656161746`", ",", 
   "0.0035375715193923796`", ",", "0.0035542166285311705`", ",", 
   "0.0035709100116381176`", ",", "0.0035876516965391847`", ",", 
   "0.003604441710828077`", ",", "0.003621280081859579`", ",", 
   "0.0036381668367579945`", ",", "0.0036551020024129244`", ",", 
   "0.0036720856054793805`", ",", "0.0036891176723805597`", ",", 
   "0.003706198229305846`", ",", "0.003723327302213475`", ",", 
   "0.0037405049168297566`", ",", "0.003757731098647854`", ",", 
   "0.0037750058729315583`", ",", "0.003792329264713512`", ",", 
   "0.0038097012987962087`", ",", "0.003827121999750216`", ",", 
   "0.0038445913919209485`", ",", "0.0038621094994195637`", ",", 
   "0.003879676346131067`", ",", "0.003897291955712312`", ",", 
   "0.00391495635159167`", ",", "0.003932669556970136`", ",", 
   "0.003950431594392678`", ",", "0.003968242487455975`", ",", 
   "0.003986102258260127`", ",", "0.004004010929098967`", ",", 
   "0.004021968522041841`", ",", "0.004039975058932832`", ",", 
   "0.00405803056139209`", ",", "0.004076135050813723`", ",", 
   "0.004094288548369351`", ",", "0.004112491075008107`", ",", 
   "0.004130742651453079`", ",", "0.004149043298207533`", ",", 
   "0.004167393035551248`", ",", "0.004185791883542733`", ",", 
   "0.004204239862019121`", ",", "0.004222736990596498`", ",", 
   "0.004241283288670794`", ",", "0.004259878775417669`", ",", 
   "0.004278523469792295`", ",", "0.004297217390533237`", ",", 
   "0.004315960556157461`", ",", "0.004334752984965773`", ",", 
   "0.0043535946950390425`", ",", "0.004372485704243312`", ",", 
   "0.00439142603022491`", ",", "0.004410415690415892`", ",", 
   "0.004429454702030267`", ",", "0.004448543082069545`", ",", 
   "0.004467680847314748`", ",", "0.004486868014337064`", ",", 
   "0.004506104599491523`", ",", "0.0045253906189179904`", ",", 
   "0.004544726088546058`", ",", "0.004564111024088824`", ",", 
   "0.004583545441049219`", ",", "0.004603029354717236`", ",", 
   "0.0046225627801707025`", ",", "0.004642145732277725`", ",", 
   "0.004661778225693247`", ",", "0.004681460274865157`", ",", 
   "0.0047011918940290665`", ",", "0.004720973097212755`", ",", 
   "0.004740803898233392`", ",", "0.004760684310700203`", ",", 
   "0.004780614348016021`", ",", "0.004800594023374516`", ",", 
   "0.00482062334976241`", ",", "0.00484070233996059`", ",", 
   "0.004860831006542443`", ",", "0.004881009361877298`", ",", 
   "0.0049012374181286456`", ",", "0.004921515187254477`", ",", 
   "0.00494184268100839`", ",", "0.004962219910941701`", ",", 
   "0.004982646888401998`", ",", "0.005003123624531924`", ",", 
   "0.005023650130273838`", ",", "0.005044226416367814`", ",", 
   "0.005064852493351202`", ",", "0.005085528371562509`", ",", 
   "0.005106254061136628`", ",", "0.005127029572010389`", ",", 
   "0.005147854913922001`", ",", "0.005168730096408725`", ",", 
   "0.005189655128808646`", ",", "0.005210630020263118`", ",", 
   "0.005231654779715433`", ",", "0.005252729415911261`", ",", 
   "0.005273853937399986`", ",", "0.005295028352533815`", ",", 
   "0.005316252669470445`", ",", "0.005337526896170508`", ",", 
   "0.00535885104040057`", ",", "0.005380225109734127`", ",", 
   "0.00540164911154839`", ",", "0.005423123053029277`", ",", 
   "0.005444646941167752`", ",", "0.005466220782763487`", ",", 
   "0.005487844584424417`", ",", "0.005509518352565412`", ",", 
   "0.005531242093412048`", ",", "0.005553015812998385`", ",", 
   "0.005574839517168306`", ",", "0.0055967132115766205`", ",", 
   "0.005618636901688512`", ",", "0.005640610592780981`", ",", 
   "0.005662634289941737`", ",", "0.005684707998072858`", ",", 
   "0.00570683172188724`", ",", "0.00572900546591204`", ",", 
   "0.005751229234487454`", ",", "0.005773503031769378`", ",", 
   "0.0057958268617267494`", ",", "0.005818200728143874`", ",", 
   "0.005840624634622316`", ",", "0.005863098584578119`", ",", 
   "0.00588562258124492`", ",", "0.005908196627673057`", ",", 
   "0.005930820726730679`", ",", "0.005953494881103971`", ",", 
   "0.005976219093298041`", ",", "0.0059989933656360295`", ",", 
   "0.006021817700261667`", ",", "0.0060446920991393815`", ",", 
   "0.006067616564051637`", ",", "0.006090591096604703`", ",", 
   "0.0061136156982246614`", ",", "0.006136690370159625`", ",", 
   "0.00615981511271535`", ",", "0.0061829899283172285`", ",", 
   "0.006206214816917965`", ",", "0.006229489779056796`", ",", 
   "0.006252814815100538`", ",", "0.00627618992524015`", ",", 
   "0.006299615109490619`", ",", "0.006323090367695183`", ",", 
   "0.0063466156995205525`", ",", "0.006370191104463352`", ",", 
   "0.006393816581844014`", ",", "0.0064174921308146615`", ",", 
   "0.006441217750353001`", ",", "0.006464993439266098`", ",", 
   "0.0064888191961913755`", ",", "0.00651269501959395`", ",", 
   "0.0065366209077710735`", ",", "0.006560596858850021`", ",", 
   "0.006584622870789203`", ",", "0.006608698941378166`", ",", 
   "0.006632825068240589`", ",", "0.006657001248830174`", ",", 
   "0.0066812274804358696`", ",", "0.006705503760179088`", ",", 
   "0.00672983008501582`", ",", "0.006754206451736966`", ",", 
   "0.006778632856967226`", ",", "0.006803109297168541`", ",", 
   "0.006827635768637208`", ",", "0.006852212267507429`", ",", 
   "0.006876838789490858`", ",", "0.006901515330914876`", ",", 
   "0.006926241887166729`", ",", "0.006951018453730029`", ",", 
   "0.0069758450259280735`", ",", "0.007000721598924398`", ",", 
   "0.007025648167721554`", ",", "0.007050624727163779`", ",", 
   "0.007075651271934547`", ",", "0.0071007277965596804`", ",", 
   "0.007125854295406464`", ",", "0.007151030762684973`", ",", 
   "0.0071762571924468554`", ",", "0.007201533578588881`", ",", 
   "0.007226859914850614`", ",", "0.007252236194815409`", ",", 
   "0.007277662411911745`", ",", "0.007303138559414002`", ",", 
   "0.007328664630440573`", ",", "0.007354240617956975`", ",", 
   "0.007379866514776401`", ",", "0.007405542313557278`", ",", 
   "0.007431268006806935`", ",", "0.007457043586880152`", ",", 
   "0.0074828690459805`", ",", "0.007508744376159671`", ",", 
   "0.0075346695693202514`", ",", "0.007560644617214174`", ",", 
   "0.007586669511443711`", ",", "0.007612744243461478`", ",", 
   "0.007638868804572652`", ",", "0.007665043185933973`", ",", 
   "0.0076912673785534125`", ",", "0.007717541373293613`", ",", 
   "0.007743865160869223`", ",", "0.0077702387318481225`", ",", 
   "0.007796662076653971`", ",", "0.0078231351855641`", ",", 
   "0.007849658048711294`", ",", "0.007876230656084227`", ",", 
   "0.007902852997526355`", ",", "0.00792952506274014`", ",", 
   "0.0079562468412826`", ",", "0.007983018322569979`", ",", 
   "0.008009839495875082`", ",", "0.0080367103503306`", ",", 
   "0.008063630874927008`", ",", "0.008090601058515445`", ",", 
   "0.008117620889805277`", ",", "0.008144690357367201`", ",", 
   "0.008171809449632805`", ",", "0.008198978154894565`", ",", 
   "0.00822619646130629`", ",", "0.008253464356884344`", ",", 
   "0.008280781829507977`", ",", "0.008308148866919218`", ",", 
   "0.008335565456724314`", ",", "0.008363031586392178`", ",", 
   "0.008390547243257052`", ",", "0.00841811241451862`", ",", 
   "0.008445727087240895`", ",", "0.008473391248354889`", ",", 
   "0.00850110488465583`"}], "}"}]], "Output",
 CellChangeTimes->{3.5185014175972495`*^9, 3.51856793993301*^9, 
  3.518567989049246*^9, 3.518570832593538*^9, 3.51857501263875*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"//", "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
               "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}],
        "//"}], "//"}], "//"}], "//"}], "//"}], "//"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
     "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.518302904609375*^9, 3.51830292290625*^9}, {
  3.518302978578125*^9, 3.518303015953125*^9}, {3.518303879609375*^9, 
  3.51830392253125*^9}, {3.5185012885817347`*^9, 3.518501301991016*^9}, {
  3.5185013334162035`*^9, 3.518501333936952*^9}, {3.5185013758972883`*^9, 
  3.5185013767885695`*^9}, {3.51850288211312*^9, 3.5185028848270226`*^9}, {
  3.518568354293489*^9, 3.518568356397112*^9}, {3.518575168484078*^9, 
  3.518575169604822*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"norm\[Sigma]List", " ", "=", " ", 
  RowBox[{"Range", "[", 
   RowBox[{".01", ",", ".0155", ",", " ", ".0001"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"indexLim", "=", 
  RowBox[{"Length", "[", "norm\[Sigma]List", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mseinList", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "norm\[Sigma]List"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varoutList", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", 
     RowBox[{"Length", "[", "mseinList", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "mseinList", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"varoutList", "[", 
     RowBox[{"[", "i", "]"}], "]"}], "=", 
    RowBox[{"var", "[", 
     RowBox[{"mseinList", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"normvarout", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "-", "varoutList"}], ")"}], "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.5185020235986366`*^9, 3.518502065368699*^9}, {
   3.518502312063429*^9, 3.5185023137458477`*^9}, {3.51850234625259*^9, 
   3.5185023466331377`*^9}, 3.5185787488733406`*^9, 3.5185788267553296`*^9, {
   3.518579349169369*^9, 3.518579349518658*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.01`", ",", "0.0101`", ",", "0.0102`", ",", "0.0103`", ",", "0.0104`", 
   ",", "0.0105`", ",", "0.0106`", ",", "0.0107`", ",", "0.0108`", ",", 
   "0.0109`", ",", "0.011000000000000001`", ",", "0.0111`", ",", "0.0112`", 
   ",", "0.011300000000000001`", ",", "0.0114`", ",", "0.0115`", ",", 
   "0.011600000000000001`", ",", "0.0117`", ",", "0.0118`", ",", "0.0119`", 
   ",", "0.012`", ",", "0.0121`", ",", "0.0122`", ",", "0.0123`", ",", 
   "0.0124`", ",", "0.0125`", ",", "0.0126`", ",", "0.0127`", ",", "0.0128`", 
   ",", "0.0129`", ",", "0.013000000000000001`", ",", "0.0131`", ",", 
   "0.0132`", ",", "0.013300000000000001`", ",", "0.0134`", ",", "0.0135`", 
   ",", "0.013600000000000001`", ",", "0.0137`", ",", "0.0138`", ",", 
   "0.013900000000000001`", ",", "0.014`", ",", "0.0141`", ",", "0.0142`", 
   ",", "0.0143`", ",", "0.0144`", ",", "0.0145`", ",", "0.0146`", ",", 
   "0.014700000000000001`", ",", "0.0148`", ",", "0.0149`", ",", 
   "0.015000000000000001`", ",", "0.0151`", ",", "0.0152`", ",", 
   "0.015300000000000001`", ",", "0.0154`", ",", "0.0155`"}], "}"}]], "Output",
 CellChangeTimes->{{3.5185020625446386`*^9, 3.5185020675217953`*^9}, 
   3.518502378899534*^9, 3.518567103834028*^9, 3.518569642122167*^9, 
   3.518575183774217*^9, 3.5185786968084755`*^9, 3.518578751607272*^9, 
   3.518578828157346*^9, 3.518579351217567*^9}],

Cell[BoxData["56"], "Output",
 CellChangeTimes->{{3.5185020625446386`*^9, 3.5185020675217953`*^9}, 
   3.518502378899534*^9, 3.518567103834028*^9, 3.518569642122167*^9, 
   3.518575183774217*^9, 3.5185786968084755`*^9, 3.518578751607272*^9, 
   3.518578828157346*^9, 3.518579351224047*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1.9184653865522705`*^-13"}], ",", 
   RowBox[{"-", "1.9095836023552692`*^-13"}], ",", 
   RowBox[{"-", "1.8340884366807586`*^-13"}], ",", 
   RowBox[{"-", "1.7563728249569976`*^-13"}], ",", 
   RowBox[{"-", "1.687538997430238`*^-13"}], ",", 
   RowBox[{"-", "1.645350522494482`*^-13"}], ",", 
   RowBox[{"-", "1.603162047558726`*^-13"}], ",", 
   RowBox[{"-", "1.5831780331154732`*^-13"}], ",", 
   RowBox[{"-", "1.5720758028692217`*^-13"}], ",", 
   RowBox[{"-", "1.5853984791647235`*^-13"}], ",", 
   RowBox[{"-", "1.6231460620019789`*^-13"}], ",", 
   RowBox[{"-", "1.6697754290362354`*^-13"}], ",", 
   RowBox[{"-", "1.751931932858497`*^-13"}], ",", 
   RowBox[{"-", "1.8407497748285095`*^-13"}], ",", 
   RowBox[{"-", "1.949551631241775`*^-13"}], ",", 
   RowBox[{"-", "2.0805579481475434`*^-13"}], ",", 
   RowBox[{"-", "2.233768725545815`*^-13"}], ",", 
   RowBox[{"-", "2.402522625288839`*^-13"}], ",", 
   RowBox[{"-", "2.5934809855243657`*^-13"}], ",", 
   RowBox[{"-", "2.6489921367556235`*^-13"}], ",", 
   RowBox[{"-", "2.8554936193359026`*^-13"}], ",", 
   RowBox[{"-", "3.079758670310184`*^-13"}], ",", 
   RowBox[{"-", "3.312905505481467`*^-13"}], ",", 
   RowBox[{"-", "3.568256801145253`*^-13"}], ",", 
   RowBox[{"-", "3.8258285428582894`*^-13"}], ",", 
   RowBox[{"-", "4.085620730620576`*^-13"}], ",", 
   RowBox[{"-", "4.3587355946783646`*^-13"}], ",", 
   RowBox[{"-", "4.627409566637652`*^-13"}], ",", 
   RowBox[{"-", "4.902744876744691`*^-13"}], ",", 
   RowBox[{"-", "5.162537064506978`*^-13"}], ",", 
   RowBox[{"-", "5.233591338082988`*^-13"}], ",", 
   RowBox[{"-", "5.468958619303521`*^-13"}], ",", 
   RowBox[{"-", "5.702105454474804`*^-13"}], ",", 
   RowBox[{"-", "5.915268275202834`*^-13"}], ",", 
   RowBox[{"-", "6.106226635438361`*^-13"}], ",", 
   RowBox[{"-", "6.274980535181385`*^-13"}], ",", 
   RowBox[{"-", "6.405986852087153`*^-13"}], ",", 
   RowBox[{"-", "6.503686478254167`*^-13"}], ",", 
   RowBox[{"-", "6.565858967633176`*^-13"}], ",", 
   RowBox[{"-", "6.590283874174929`*^-13"}], ",", 
   RowBox[{"-", "6.570299859731676`*^-13"}], ",", 
   RowBox[{"-", "6.508127370352668`*^-13"}], ",", 
   RowBox[{"-", "6.3860028376439`*^-13"}], ",", 
   RowBox[{"-", "6.217248937900877`*^-13"}], ",", 
   RowBox[{"-", "5.995204332975845`*^-13"}], ",", 
   RowBox[{"-", "5.708766792622555`*^-13"}], ",", 
   RowBox[{"-", "5.371258993136507`*^-13"}], ",", 
   RowBox[{"-", "4.96713781217295`*^-13"}], ",", 
   RowBox[{"-", "4.5008441418303846`*^-13"}], ",", 
   RowBox[{"-", "3.97015753605956`*^-13"}], ",", 
   RowBox[{"-", "3.375077994860476`*^-13"}], ",", 
   RowBox[{"-", "2.7111646261346323`*^-13"}], ",", 
   RowBox[{"-", "1.9806378759312793`*^-13"}], ",", 
   RowBox[{"-", "1.1834977442504169`*^-13"}], ",", 
   RowBox[{"-", "3.352873534367973`*^-14"}], ",", "5.928590951498336`*^-14"}],
   "}"}]], "Output",
 CellChangeTimes->{{3.5185020625446386`*^9, 3.5185020675217953`*^9}, 
   3.518502378899534*^9, 3.518567103834028*^9, 3.518569642122167*^9, 
   3.518575183774217*^9, 3.5185786968084755`*^9, 3.518578751607272*^9, 
   3.518578828157346*^9, 3.518579352574329*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"//", "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
               "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}],
        "//"}], "//"}], "//"}], "//"}], "//"}], "//"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdf", "=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"mse", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"mse", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", "pdf", "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"condexp", "[", "y_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"mse", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"mse", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"condexp", "[", "y", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"var", "=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"condexp", "[", "y", "]"}], "^", "2"}], " ", "pdf"}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
     "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.51850270986544*^9, 3.5185027235250816`*^9}, {
   3.51850281426556*^9, 3.518502820674776*^9}, {3.518502912236435*^9, 
   3.5185029869538736`*^9}, {3.5185030243576574`*^9, 3.518503031207507*^9}, {
   3.5185030883697023`*^9, 3.518503143188528*^9}, 3.5185031830558543`*^9, {
   3.518503247418403*^9, 3.5185032704314947`*^9}, {3.518503383754445*^9, 
   3.518503389142192*^9}, {3.5185036097293806`*^9, 3.51850364236631*^9}, {
   3.518503880148224*^9, 3.5185038817004557`*^9}, {3.5185039857701006`*^9, 
   3.5185039867114544`*^9}, 3.518525192818457*^9, {3.518569142976733*^9, 
   3.518569145825031*^9}, {3.518569180298662*^9, 3.51856918289587*^9}, {
   3.518569249834726*^9, 3.518569251516203*^9}, 3.518569328758312*^9, {
   3.518569477053025*^9, 3.518569557421056*^9}, 3.518569700907299*^9, {
   3.518570732612749*^9, 3.518570733907882*^9}, {3.518571171235031*^9, 
   3.518571210552996*^9}, {3.518571266859931*^9, 3.518571389580315*^9}, {
   3.518574524298865*^9, 3.518574549266451*^9}, 3.518574798770981*^9}],

Cell[BoxData[{
 RowBox[{"norm\[Sigma]List", "[", 
  RowBox[{"[", "50", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mse", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "%"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "var", "\n", 
 RowBox[{"1", "-", 
  RowBox[{"%", "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.518571448736283*^9, 3.518571460778473*^9}, {
  3.518574510236627*^9, 3.518574510426399*^9}, {3.518574681455587*^9, 
  3.518574713545662*^9}, {3.5185780819243155`*^9, 3.5185780875924654`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"//", "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
               "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}],
        "//"}], "//"}], "//"}], "//"}], "//"}], "//"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}]}], 
     "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.518571585775788*^9, 3.518571586653375*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"norm\[Sigma]List", "[", 
  RowBox[{"[", "76", "]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"msetest", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "%"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y", ",", "msetest"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Condexp", "[", 
     RowBox[{"y", ",", "msetest"}], "]"}], "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"var", "[", "msetest", "]"}], "\n", 
 RowBox[{"1", "-", 
  RowBox[{"%", "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.51850270986544*^9, 3.5185027235250816`*^9}, {
   3.51850281426556*^9, 3.518502820674776*^9}, {3.518502912236435*^9, 
   3.5185029869538736`*^9}, {3.5185030243576574`*^9, 3.518503031207507*^9}, {
   3.5185030883697023`*^9, 3.518503143188528*^9}, 3.5185031830558543`*^9, {
   3.518503247418403*^9, 3.5185032704314947`*^9}, {3.518503383754445*^9, 
   3.518503389142192*^9}, {3.5185036097293806`*^9, 3.51850364236631*^9}, {
   3.518503880148224*^9, 3.5185038817004557`*^9}, {3.5185039857701006`*^9, 
   3.5185039867114544`*^9}, 3.518525192818457*^9, {3.518569142976733*^9, 
   3.518569145825031*^9}, {3.518569180298662*^9, 3.51856918289587*^9}, {
   3.518569249834726*^9, 3.518569251516203*^9}, 3.518569328758312*^9, {
   3.518569477053025*^9, 3.518569557421056*^9}, 3.518569700907299*^9, {
   3.518569803949429*^9, 3.518569806013539*^9}, {3.518569872679896*^9, 
   3.518569916944227*^9}, 3.518570345815969*^9, 3.518570379523214*^9, {
   3.518574924144851*^9, 3.518574924478064*^9}, {3.5185780917985134`*^9, 
   3.518578092028845*^9}}],

Cell[BoxData["0.0175`"], "Output",
 CellChangeTimes->{3.5185781042363987`*^9, 3.5185781500823216`*^9, 
  3.51857821403428*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlWk4Vl8Xxo+hJIQiyZCISIYSiuecQ2igEBESIQ1KKKQ/mRJChigZilQq
SjIl1DrJkEgIGUpCQmbPPL7eT/va173W2r/7Xh/2Zk8/O29+BEGy+BDk/6fX
q9Q5Hk+IECxqkXlgVKQvxdqoZswWIhbPv3Sr1C7Vb9j3xDWYLkS4fFIKGaCW
66sNvW2ZnhciPG3atczd3utPiY4+6v8tRDyJ++T/LLZT399H36n8oxAhdupw
nJwyTT9cdYA4HSdE1FiHa1f4mBlk56jc/rJGiNBbtJHNyPhukPcr3u+I8ErC
k4P+O8oS3r2+w95GQ3oF4Z9ToBwfKbXnk629eauqIDGy/kChXqCQ0QEN1UAV
ZQGCGiZhkSfLMjIqcS38qsNPUN3SYw9LtBozE06v26nBR2gNaKRqHMwklcT4
NW5T5SMCHkxetgjNJnmGh1xR2cxHxJ3IWVqSe0D6HJAwKCXLRxzs+nD2z6VH
pGynkke0VXxEqbbEtzadUpK13RuHeUE+IkXeNH3byTIS/yFCaBLhI3yu/HDc
PFhB8sG7zg/QEWJrtWOTTn8NqWvn2NfWeYSITDEL3WD+gbRHjar3bgIhUrWz
SMK6TaR82VX3SoYRYiClYL4orI20SmwjO68PIXqNRmX9LLpIdStVSu51I4Qk
yezD2Ktukj+y/WRaB0K8sInR/uLznbSFuWttQhtCVCcIMAMiB0h9S2hD9CeE
qD19PvEM+ycpaWZfcGgDQgwLf50foAyTTP7aqAcSCLHaz2DLde1REnnYaeBC
HUIQ7rUHzpf+IT0b8EjyrkaIFOyccX/MBMm12wdzq0AI28ry+T1V/0gS7Zfn
HUsRQl9jc4CF7RypoTmswOYFQsCHqLR1pQukkA83jh54hhD8+UIBDswl0vba
5JWmj5d1tlaNYQqVNFyRWb0nHyEeT7uGi4cwSBkl+T47cxHipTq65hiwSQee
PZfXvIcQtyqJgrO7EZT9sKxdJQMheFc5EX2H+NHSnNpI+VSEsJ86n+X5WBA9
dadhp3QSQgQMnJR12C+EyqR8GROLR4i42hB3BF+Nfo7vvbsyBiE8vbe/67kj
hoZH/zrAi0CIjTtrRxuKJdCdYRNMWihCeKWvsL//aS06HrTwYv4KQmx5rOLz
RV0azfZjuk1eRgj2WV+f1G4Z1PqcgOSIH0L850foKfZsRPm9RD8OnEeI3dTF
uU+7FNEqV+mgb2cQwuZq1roUnhLq46i4tc1rmffdi683lFRQRdut/Q3uCBF0
JWxPTIwq2nVQN/Hd8eV8q89ceKinjsaa7UGrjiGErOKb1EkDTdQI3TtXYo8Q
4X5v8f/uaaOzBlYPn9ogxKTva/HOHTvQAt2j9vlWy/7u7lsVbaeHOm47sSJr
P0Kovfbe5l6pj67ecvpNmhlC3HvzVczKczf6XsHvXAKOEF9W+jPWeRqjl2RC
5K4bL/vTLelMfo+hapJRX0INEeIP0yXGxdQUHVidEBGohxAKL20WPU+YocmC
6Tt8dRAioWJLnX6NBbqXmzPqrYkQJ8WaBwLcD6AU2uM7bluX9+GmtiLTwQp1
iX+TmauCECHIIWcxH2uU2PA5a2ATQkTTMc2+KVtU7fmPnA3yCMG8WOLI6LBD
k/bM3XfcgBC+2SM/H00fRRdb+PIzpJbnZwtuyDM7hh5zkSrokkAInY+5r6x/
OKN1U2qPJcQQor/2ZEv9O1dUOXRPobUwQuyck25rmXNH40UOPUtagRDS8eaM
qHce6GyOW9FnPoRYm2HmE1bhhT51GnGSZPNApGFlksyIN3rpqtCJW2Qe5CpY
mqgcOoti2ds9hGd4wGp+a7Wa4YMK1x7xvvGHB+RDnPUjc75o92DwOb6hZd2U
wUNz/dF8do7vtV4exEf91q3zvYReUPgQwGjnwaiSBGgFBKKG2HhQUDMPpkzJ
Rl3FwSi/u8h/C8ADN/Mx08sqV9H2CN1w32oeBDAknS4NhaLZ+Q7Rk6U8MEp0
UugbDUe9P/wX6/2cBzPBS+FlClGo7khewu+HPOCh5z90UqNRNn9j8olsHsxx
hPS5fDfQTypTt/tv8yDrJ+502jwOTTcXz3RI5AFNrXHo/cebqJv3rpzO6zyY
GA5fsIlNQrfFOucdDuPBfyblFQLpKSilMPxRSyAPZqn+srUhaSjR/OiphS8P
olqbTws4pKNJE5+KP3jzYHBe+QXF8w56THj2FerGgwjiaXTB00xUedu6ireO
PAiaKHiao56Nzlrurta34UGJ4I44ZDoXfXv+RN3r/TwglI9TE+l5aExSNKFl
wgNJD5PczqKHqO3Lpw3Pd/PA+vAOw/Ibj1C59rZPqjt4IFE3sd8j7Qk6PrvQ
9lCDB97FtJv1XU/RMnGZTgVlHtg13Xqz26YIDdcl9WRt5EH5ppsHXoi+RA8e
8eiXXseDRceTj9tWlaJSl2J/ponwII517FVy2Wt0+HbxbzHB5f6smeTrceXo
i/KOPzfZXBhOOuKxlFiJXummTK6gcGFQf9I4teENupeycTZqhgvJ/4VtiTSo
QdesN1nk/OGCX2zv0pm/deiAgTf16hAXRrviDa78BPTJsQQmpZcLi27KaTUp
H1D/kFfcgK9cGNgt7XrG5SNKyurmn23mgrgTLvPNrhEVqmGs9CG48DnP+FfA
tWa0a0BRZLyaCyyP+0yVXy3oA5aZuOdrLkxpTnTj19rQc/Ln1g0958K1jAND
uSe+orvQZBmXgmX+irnXNmadKOJWLtebzYVzpqK1BbwutDW8b5NdOhfkVdX/
y/7bjd7N46i0J3LhABF23pvXi3oSyuqWMVyIt2mcvGPVj2r93r+9KWyZb/dP
Y83OQZTO56u7N4gLLx4iF3PuDKENyrd3vfflQkcDW8Dv6zBq3XtrKtObC6Cx
Mj8ubwTtu3kzP+AEFzZ55cuH5o+hnugNRysHLqgm+8Ye+j6OTs9Hiqoe5kLS
qYH58IOTaPDjsHquORfWzk0Mbub8QxGnkJA+EhcaUf+PQ/RZNEEkULtsFxeu
TLowBJQX0HXgN5a4nQvs8i+uR5cW0dxL57O9t3DhwqO0tFYyGVVTO2OLy3Oh
7sifp2aaNLS033OlrBQX2jbeOySRy0CNbrnVLYpwwd6o3371YTbaYOJyqU2A
CzduStnnmvNQa7KDeiGLAzr+f3UnzPmwvqdHhiKWOPDp8btbOmsFMM/jhzOc
/3HgXf4envuaFdj0moOWeqMcmNc+/EgBE8KC680RsUEOOO30LAsvFMaQYJOq
8S4OFPQdl1t/WBRL0CBdID5zwO6E7TqeoTgm9dNQObueA48rke9kA0nsQape
3+UaDojfm7KUYq3F1M11kg+XceBQPJ3jPi2FvaZtM99axIEzKbdmjMRlMKNi
NSZSwAGRcdmegLOyWIObculAFgdEj1W3m3PkMOu1iqcr0jiQ7SbQFvBNEetr
lJVPvsmBN+5F7Dy6EuZ5VbrrTBQHxLSTxJtKlLHp7ZLxpleXebsMRP6lbMGC
h0UxuQAOyCzyVWzNV8OQjFVk8lkOFD6k3aWMqmMJ+wWL2k9yoDYs47nhSU1M
isVzf+bEAQ2/j4VmG7WxByUs6WhbDtxTtpanJupi6p601uMHOBCr3clr1NmJ
lUkvRembcMCX19Swiq2HkVpmDcV3c0BZP141lqyPNYVNzUzocKBt6wenEwq7
MRvd8Uf1WznQOH/9tWioEdY3+ts5dxMH0gLejFxdi2KemT/Fg2U4UMS3uMic
wLFpy/5GG3EOHP3jTdOJNsWCud2hGkIckFfyrAjXN8OQso4dAjw2qHuH/RuU
tMASvNv+/qCy4cuExLyQ3H5MSvbT/apZNjSqHeqRcTiIPWj7aJ86zgYpscb8
sAYrTD0ShH2G2BCthKwTuWiNlenVglkvGy571q2KLrbFSH+rghTa2eBXZv8r
ea8d1phdpklrZMPb7teF+3j2mLV1ye+Od2zoWstpX/XHAevjK8osqmRD3dI2
lwjaMcyz8snhmJdseHPvh8gTIxds+uxDAbcny/2a39e3lbliwfL33xreZ4NP
660jT065Y0jHPT/JO2xoIM9yHm3zwBKuZ6j+S2KD4oKPhEKjJyZlmDrYELNc
v0Oioy7mFPZgKjHtQRgbdtsApf7CaUz9Qdz+kEA2GMq37a2MPIsZr4go1zzF
htu3Zn9QjH0x9fFbwqmubGhZfcDLoc4PW9+c604+yoaAkQsZv3cHYALPiiud
DrNhYkjmHVZ6CZuPrxF5Z8EGj+BDson7ArGhcy0emzE2bNVIDyBxg7BWy743
NwzYIL+VV07vv4IVilK9rLeyYfvz9s86wmFYxoxgTdmm5fxsu1VXeYVjUe3r
JGQ2sOHzqcLT34MjsYuvlE+HSrDhoMyc7n+9UZhr6o66X6vYcJx56vRVu+uY
ZYDJWnM+Nnxt2mYiPBODGdrZnH3GYEGLyGfh+Gex2FopX6mAKRYUSFzaXJqU
gCGUUJ+eERbErul1EaxNwmZ6Eog9gyzI+5py5rF0CjZQlbX+wTcWRH8JWM34
mop9ynx2gb+NBenc4r3N2rexypA39acbWBCqTTqs8zwdK3Bu2tBax4JhcmT3
ftM72DW5sYb0lyzg/ZVwfP7tHubDXtxIf8KCExHxW6e7sjGnn3wBrg9Y0LlJ
X6CfkYtZvJdoJu6yQHXFZPUpqzxsZ94mBdUUFjhLDvOf+JOPKUVqX74ZxwLR
F5b3H6AFmJgH2jITwQJNU0HxA6WPsAnl40FV/ixQkerVrZsuxHoFfFo3nmOB
J1koqafmGfZxLGRzhAcLXisPjNGLi7DSxrgro84s+IuVXCmrf4E9KLz7Zb8d
C5Ll5N/V8r3CEuOeqLywZIGMwL4dvMpSLORsxVUJMxY4reyptuIvw+y3dan2
67HA2yFuhebfCsxE5Hcoup0FCya5X32uV2Ha03OdD7csv4eo1ehh1ZjcF+7W
lQosiDqRO/NKtgZbVSIW7iPNguJXYYvaG+owarJ8d7sYCzb0uK1VJ73HRv00
t+mtZME8N/eiojmBvd9xsJdFZcKotW6+ZFc99mKt0/aTc0wYWGcrvRZtwLKW
Tkc3/GWCOmbWZFffiMV2B/WpDzPh2ZaYb4+8mrHAyhjtW31MWLF+V/OScgvm
cTc9ZqGDCVPfegKP8Ldi1lcKBhxamPA4OoQ8I/AF09hDxCrWMKH8XOHfV7Ud
2PqNX39ElzHBJ/O6pCatExNk/dz5t4gJq/byCU4e+IYtDE7HWz1iwmT3ofGz
Zd3YUB1r6FUOE/5dbEX36vdibfdX60tlMCHlYp6H2rfv2Ntw2cSQJCacqMnk
H7nVj2WYGBqaXmNCcYv2yicePzGBprmfrUFMkHOa/ffz8i/sktWzGMeLTNjX
oVcw1T2MjXSc1Px9mgnvb1ZXTvGPYEccZbvOuzPB2MhQWs1iFCMGO0Oox5hg
kZd2fDx3DNP1SNgUZcuE0Gj/8XiRcWzNBdaFu6ZM2B02XWOvN4ldWyhft9mI
CSYa3z8+mpvCpoMv1BTvZEIvn4O4ess05sre4mGgyYSFc03hZR9msdaon0If
VJjgxS+rcM93HjMSultiJb+sZ1fc6UlcwIqSrB16pZiQvWWh8UndIhafCQX/
VjDh/Jf8oDwXCkaTDzkYzGVAc69qhPlnKna6QHceoTFAXfzytqAjdKx36+Td
xDkGiPztOvNggYFZvHyIrp9gQIPP2h7TFyysYqfLWP4wA/IQyS5qNAfbUr02
UbOfAZUWdgXnr/Aw/o/X+0w+M8Cz+3OZ1zAfHnCAFNFaz4CeEVelBlEBfPgL
WdWxlgE655XKf1kJ4rb2L9uGyxkQzDXf3fFgBQ593pfPv2DA1fsX/71fKYRr
uylupD5mgAtniPQnZhX+YLSXiLzPgN69Ifm3Nq7Gw2b3r7mbzIDLFuHZE2li
+L/LSKVSHAPoATfIScHiuAuj+nhxBAPajxedOlQnge8R3Pac8GdAp9nF0r6Z
tfizmyM2VucYIHp0zW1tJSl8g3gOtceDAW+G91r3nZLGqbKi5v/sGHDJ3+fl
EY0NuHdew1SQ1TLv7HNT52JZvHvLtTTEnAFihgojquZyeLnO7JC0PgO81Hyz
VEERV64svJGvtVzf92uFkJ0SftvIfbum2nI+JZ/G0u024/4WHVdNZBgQIdap
IBmlgv/6HK/UKs6ALwf9lZ+WbsGtbU2bHVYt78vOd2XBgiqudbxM6jyDDntE
jVRuFqvjucM+tZQFOrhfMbYLVNuGi55W8YycooOgq4jjxypNfMo/49WdQTro
Hev33yCvgztTDzkqddOBZDL+6uNVXfxT6ApOURsd8tDb0Xcv7cALY4MtiXd0
eKwVQFgm6+HSojoLllV02Hr/zoa8sl14TNrfzJ4SOqh0KzhQxvVxr1ynP1N5
dFDTbGici96Np1b8Rb9l0kEmcK/IPxEj/H1b8N3aFDr40TL3zRYb4xs5GfuT
IujAtFl8ImOA4wekt+QHXqHDd45NQFCaCR6kVU539aPD7VcSXyXumuIdJzqf
a7nT4axEoONEmxnODTrJv/4YHbI3Bt35gFjg25PnXLjWdGBUb40W2rcPj3sv
JvoVW55X3h0eveogXtGbe+qNAR20GhbPPI2zxEdmNd/ladNBqeTfLVn5Qzi2
yfKivyIdHjX5d++7aYNfMOxvclpPh7DVg7oaZbZ4ts3ZTaZr6NAa7hte+OII
TomI7ZDk0mD99+NOKq32uPI9aQ0mhQbkOVHl6/NHcdvSx1EjMzR4JUwOzlF1
xF8M1+8s/0mDQAMNBbF6J3yAfiQxp4cGJQbNh4Q0XXAhyd+j17/QoGXx13F2
4XHc05SXcfQdDXz5tZLCBt3wVOfkGVIlbfm/PmfPsDyJvw9Q2Kf6kgYRm8vl
7+t54LIFxjRKLg32Hh6q26vhhe+r+WwzlEED4c0qlqcMT+GBXc7PmpJo4HUm
21nb3hvv4A9xzgyjwU/9uTHjqjM4d6NQWUQgDbqM0v62c8/imnp3V5+9QAOV
k7f6nx/zwWO9Kmp3u9KAT+3Irk2oL14Raia1+SgN7ltvmcFaL+Ij6V0XhA/R
YNM2nS9OBv442jCvMGBMgyfRS9+CqAG4z4+I4Ho9GtS5VhvWjF/C75HXfC3S
pIHWnWuvz41cxslbtCJD5WgwhEWepnOCcGW0rs9rHQ2eyck971e8gts6WO04
JEIDv/6j+7YdDsGLb5wbkWdRISil+qhN939433260YolKgwI8IVbaofhK6vi
0memqLD2tfsz/nvXcM/xJ+bvB6hQX4z8vWsdiadyd90v7KJCAUXlM00+Cn+3
voGS/JkKimIx62LJUfiG/SOF7jVU8F9tvSmTuI5/faoozJdNhYMBblmK3+Pw
kzMEX+BtKvC5/vK+/yceX9zpxRxPoAKyWutMO/cmLvX+6b+2UCpUvKxxqLFL
wp8IWI7hgVQwbFvze1fyLdzg4PSPsgtUuD7LPz3ck4w7deu23ztBBeki6bby
xlR8UvZbk4gjFULny4nV19Lw/9yDINyaCo0xOz8eNr6N3596W3oKp0LEsU+6
V7+k4yOIWbru5mW/qoeneq0z8cv7/iQ+kqVCabBxAdXsHi6YFBezfi0VWkbf
NY+bZuFbZdqC2PzL+o+cLDPnHLza9eJFPxYFlCd9du+5nItbFkicGVmiQGdT
qoZk5n38gpaD06cxClzalBQTz8nDOZdotsY/KcDXFP3+RH4+nlyddbCkhwKw
UXQhdP9D/LXZkFFGEwXq1o3v+V1YgFOdzyicfEaB1A+S0SUlT/C4POH13/Ip
8MliQf9TZCG+4U/xmn1Zy/fec2kvnJ/ixv7zPM0ECgR17my5rvQcb6u8TX8Q
TQHbhvPHvq4pwt1YuxYkQykg2k6fvCtYjEfGXh2hnafASV5D0BGhl7hkm9yg
zykKzDKCPB5KleAFku+//XSlgMGSsNbWba/wxlz+xo+HKaB5+2HdwTel+Ory
xKcpOhSIrVf6tWlHOZ5D18rnV6fA8b05IvsGy/HtWMe9ICUKCH+UtbBKqMBt
WqQSjktS4OixB7PHaJV4xq/7F7YukcEUvTi5V+Itrqpq4p39jwwJUe5mGmNv
8SqfkRNiY2QIitzwseZdDd5PUbNZ6iZDAH203iK6DlcULd0BVWSQ67tgMqpB
4BfH1H+klJAhJ274Nr2KwN/XPYw9WUiGdVWdYwP7P+AnfNMH+e6SYRdpjY1F
UD2e2x58wzyIDN0nLT+5IY34dOGcjrQvGW6ubA5IeNmIG0ecHfhzigyqx0wD
WG5N+ICOi07cUTI4TFS+GWtvxmXT0P4WPTLI8HgvzMY+42fPVV3P1iQDK+Di
PpHKVrzaVEf7vAoZhtscF8IS2nCnRaXrouvIkGhXFRRv1o7ftRfUsllcguaq
qM5HtA5can1rZHfpEpx7/lezVbYHPzVrpvnk2RJE9OWsd3jeg1c01fUE5S+B
86axBU/jXtz+Ssk2mdQl8OckV6868x2/3ZfW7ey3BEX+s1scf/Tj4jlO6r+0
lqCW8NNTJv3C3S53dr1SXQKak59X2eIvvMTK8lqkwhI87WqIqXcYxi0eH/cr
lF6CDZOcAqR0GP8fyFlE+g==
     "]], LineBox[CompressedData["
1:eJw1Wmc40N/7tgkpI0myiuQru1J8ziMkioyikhAhGUlWhWRvKWRlZUdEthx7
7733VpIQJX79X/zfPOe6r+d+7lf3c1/nXNfhMXykaUxGQkLy5l/5v1OrpPe8
fvciZlv8m0iSMwG8xK5G7ctF3Nyjc5axehQ6GAmhSJtF/Ngyzs2eexRc5p5T
WRot4lsVz+nnXozAUPB2CculRewaU3l2U2EY3kytH79Ps4htYqxXFBYGQK5Q
Yvfc9gKGhxI8ZtoDsOpvM0C3tIB5zyZT5tb1g8qZ1YC85gWc+OX9t8KsPqDw
Wd4gC17AXRUC3zPCeiBXV7Cj78UCvjxusLf/UA8YiJllZFgv4Jdml35HhHdD
2dCcnqbmAtbJ2jvPG98Fdqen6hMOLeDgeq3krpYOmOsaiJSNmcemfqE/slma
ITT1sC1L4DymjklPvqbdBHJO2tcWnOcx84BNyVh0I8Ty9ZC90p/HFKaCo5ni
DXDTsd18nHceZ2ZyM8wG1gKVKoNiHvM81teskd34VgOfeVS5vSnmcdmwnuB7
jRo42NzUIzw3hzP0xMrTj1dDw7E6wiV9DnuRH7jI/KMC7Nco2DSj5nDIniBD
jUUFnKiXX+Pzn8OPPnGfN+rH4GpdmdJqMYd3U+mvc899AanqsgPHROcwr2le
+pxKCcy9/bO4yj2HnxPKTxTtiiHU4kJNDeMcvrmo5q3xvghWDxU5WvycxSIq
ms9IDxZC+oO8ydKCWSx5MfjPD4HP0GMYx3U1ZRbTq9cWhVvmAcld/7tDYbNY
z1jt6kphLmhrGA1u2c5iOU1HpjN3P8HLq2qHfe7PYpYpa9OZwhzIvCStdfjG
LLbzWBupO5wDZBeYO89I/NO3iYxVb82C05J7DLW8s3iHVQN1Z2TCLeFllRtM
s1iQkcSpNuQDfOStbrD5MYNTt90e7HueDjp0Tyqys2fwye+v9TM/J4Mnpf4u
ipvBVduZcQr9SZCzd0WmLWgGJ/KaOb8kTQKqdd6ir5Yz2CAr+jCzRSKIrTBs
Pr87gxUe2lPvfUgA3YXfEnSqM/hVdiNp+Vo85I50ZZ8SmsH5FK2FQyfjYLSv
/FvR0RmMDT3Ut4bfAU1nxn9KdDN46XxjwZmYGNCrdUs1WZrG1j10O+8gCmg/
ise9T5vGUrG/7zyiCYczaZyj4hHT+Fdi8KVG5jAwSKQ9WuU9jT1LD8YFC4RC
QfhU+ITJNLY1KZX5z/I1TL5q63mkPY0Zb/ZNmsWEAL1/CdPepWlcfUAzd777
FRi+eB10jG8a+36ym2DID4LApy4tmSz/+qSe4nKagVD05CGtDMU0zvikUtj1
1x8YHsh56UxPYfPOQPuDLr5Qor7m/DZhCkunrbSNHfKE2StjpfwhU3i0qEC6
ms0DDl5q2s53ncJW5lqMxvzuYHI+0a5HfwrbaH82VzV4CSESQXlGalPYIEcz
pdPfFcpOP/uxhqbwHSFliWMvXwATr6YlI+cU/ul7NjXaxwkIDvQhfv8UbtgN
OK/M9xwesAouivydxDnspvtLOp9COS2Z8bWRSbzWr0Frc9MBFilWEkebJ3Ga
5YREgIg9sOwNTliUTuKzvXLGBw7ZwcOfn3T9oyZx/IFLekJUTyDy7A9pU79J
/N6M/cCxQzbQ8FT0qPyzSTx1+b4lmchj4CPJHvx9exIrBGW2tpE/ghvyK0V9
ypM4wsUi45itJbh5nY7IPT+JNztIGtY3zWGCPlP74ZFJHH71mJqQmBkwqC+f
Udw3iVeGqp6wzpsC8UbwEO/2BH5EPf81OtMEoo6kdw8OTOC9d9eoe43uQ6Pu
Qm5+wwTmNEtVV7xhBFtxJ1+HFE3ghNCAyVYNQ9DiT1FXjpjA7YXZTcOPDcDD
bFaEz2cC32YTbovm14fczBMHSB0nsH/91JbOi7twUOJ9a9HNCfx7R/e2v5UO
gP1UZujlCUz9BT3hI78NVsU8AdbnJvD+xLyU5fSb0AzxVwQOT2Di3TOVXEEt
+O02foqCegKTKftu8pLfAI0Agqni2zjGDP3hcUuaQB95IVgkaxzfDfzkuT6t
DmZcxarzAeM49F2m8eaCGtQln6OPsxjHmQHtHD281+BlrqQvg9A4lumkeKsx
cgXGpPIu19GNYxZ7spri28ogg8WoXJbH8CO5InG35cuw2Szs/i1jDPeOycpc
VroENzSzLib7jWHqe2s7DxgV4NPAfyR3H45h5tcC9pLLcmAxK+DccmoMew6a
N7q1ykKTeaq0x74xnDa6+2A9DeDkGt9v6cVRzGCX/Zy6i4CpXV6HD2mjWJSj
/cF/1hdA1jPhjJHPKH73dywrc0oK3tFxr7M/GMWnSblLxMzPwS22Y4/9To7i
B9aMVY3FklAQGy0iRz2Kn8z2VmFnCWDmY1/ZnhvBmjUVti7XxaFN7LC5WcoI
VmhfMkwSFYX/isJO8XiN4NesCZaxFsLgg1gWBoxH8CnL89MhoUIgf5XRWIlv
BHd+3na5JHkK4juDj5NQjmB9ffty4fSTsHuTYapwZhhX3abRoDrDD3fGAuIf
1Qxj8l3xlwF9J6DoPp3+yaRhjJglc0MCjgPrsu+xcfdhTGfZlrShxQtPHtOM
hBsNY4Uls+oUMR4QdqG8TXV8GF/CUT/GznECe0nH2wWKYfyJRpaf6jEHUG5G
9zXNDeH/sND+yGp2GLEUvxGcMYTVOrWli7IPQ0P639ePA4awutZ4X4MiK+TN
NnRetxrCTt4FWiprLOB3V1+NTXwIm+9m3tRxYwL7SMGg38xD+KU87eWx+4xw
r3ejZWRjENO8+55bd/MgqDBW0uH+QZwRQx6t/5kBpFQDriQUD+Ka3oRstz56
OOF709c9ehAnNM+I6LLQwcFa3gZj5398+8x0E4t9MC9TfEnw4iCeXRyeuWNM
BV2OHh70xwexvj8TWww5JZR/VqteoRjEdUlF9woKyCFjlZ2sc27g3/4sqrs6
k0G40JxsXsMAZlGx4hrXJgW3B59ehGUMYIkc0u91F0nAMsmp3CFgALP9FuC0
fbaLFDiYZWTU/837rDhz1PxGorfGnnGKD+AnpKNWZszb6GhoejEJywAO5fh7
csLpF6LqsN2a2ujHiYevP9jb3UBrdLLnavv7sb7io26diHU0dpnOPrW4H39M
ezYdefknanTv++wb3Y/5Z7Ln7enWUPwfC/Fr+v14OkVlOyLiOwo4J/VY9GI/
DnSa7+MM+oYcnpDnMB3vx3d9pbKokpaRYXbbyjpFP/bp+GhgMrCIri1Hnu6f
68MeoyoXH51aQBdOGlsUN/Rhn1Oi0RZhc4jfSPRDdEYfPmfeeKuKfRb9HaoT
MLDqw2o9UeTPzKfQAutrUzn1Puw2+esps+Qk6tG8m3JC/J/enS52m4MTqCJI
YJaKpQ+P2pLL1e6Oosymn8cXN3ox12LSH6+9YRRBhQ2b+3tx0aOgOmqeIeQu
55eQVdyLX4jey790bwDplHBz2Tj3YvcQwtjzbC9S3Fy+e0O/F9NpRAUxNXQj
MfHCmLMXe7G837VE68ddiMPKbZjteC+W1bLpPS7WiWgyVNn/UPTiGCPl2TrK
DrQ+y3Z7dK4H5x/QSWMeaUXjPDNvcUMPdmfNsLrX2YwKIp8d8gjowdyTHPGi
PA0osffSDROrHvyR942qg0MdCmRkfKOk3oNN64ps6JdqkKPqSKegeA9meCGk
wONQje77ph7cz9KD9+0WiJIfq0LqtTZq3ze68R/+KGAfqkAypCios78bHykg
p2u//W8tn/bQhUd3473e+0iaoxRt7W0zfn/WjSn4eY4b0BejMS8uNiWdbjxT
cj9I83ghqt5/iTPhfDeOeqUfdF0vH6WFPjzxm60bn+p71NtdkoeCjr4SvL7V
hXlODaZan81FTxLzRTP7u7DRLmyvtuUglENC6IV34ZiZWKfVmEx04hy/fKFd
F0YhL1b8jTLQvvKryge1unD2uxQJEq00tKLwWM1MsgsrRS3xi1mloJ7mcK0q
5i48WxPIeSEzCRVrlt05+rMTf7saLv2Q/j2KHZy8Z9vViQfc49ZlAxKQ2byQ
FX9IJzbVHqB3rn6Hrllp2r6w7sQPT7N9eGISjSQ3HJ4NqHXiJ0+a7uyei0RH
nN65iol04miWpUMpkm/RLlm1lx9DJ+5ScFGXuB2GZnwXAqa/dWCGTzlp6Ylv
UONBhjcyrR246qFVhzzDaxTKeTtuxb8Dq3Kk6Ia7B6FnyS7Jl8078GNR5wey
tAFIXyjpQ/yVDuxzQ8G5psoXKeQ1fto+1YEFVLyUtNO9keCF74Wa+zrwbH/R
vHWJJ+J0O+V0s7MdN5tkj3WuuaPFYFuffa/asdyP+vu2am7I5QNtguX+duz6
qmGPttcFKRdrZXG1tOHM03wca5edEEt9fHGnXxv21Wn0uvf9KRrrWa51V27D
k4whb2TrHVD61NmuMzRtmHJKLqK22Q7Zrr4cm69rxSnxHuLW208Q2m1ZivRs
xSHsTj/JVW1QzxEj8l2yVhy5M3fg5mcrFHfy44GcyhbsyPMybYzDAj08s33U
0LUFS5rnzMyXmiFJeQUBFmjBRV0y/UcCTdGeerBk3d9mfDac2/lxgDFq0huS
dSxrxtSSVrekC4xQqAWfquDzZvx8gsd1P7UhEvQpNQ7aasL2Kj3hM7x6aCOM
yka2sAnvusqUTPndQRXvNVzW7Jow3W/NqVeCt5Hfpxi/JMkmrCCtVX7/rzbS
wvPh2j8bcei14BGRvRuIu1X8PU1uI75073oKm9B1tDTknF1i3YgfdE+Mv3HV
QPkLDaUWIo04i3z50pc1NeS6ydzAudKAl1Nrwn/wq6KrFPo9HZkN2OUPdzRE
XEGsTBkTbuYNmGgbH3tzUQlNcm18lRRswE97XhfLcyqizNOy23ML9ViPs5ub
UlABOUj7U0am1uOe/w6xzRvIITnlPsarJvW4djk29wqWRfQ3eTj/nqjHy9mH
LhS7I9R/30Iwe7oOO4TvKHE2S6PyUfVzBSl1+NPVWNU3DudRivYZhS9mddiD
Raoq98Y5FNh+RKNGqA5HxtpmxeidQbZKu3ebv9fiRurk0S8hEuhO5dTDrtxa
rF1Dzt+0JIbkLtQ7DNrV4hd8g1SFJqLooNCrkPk/NXgzzEHI1PE/9CvJNnal
vAbbT5pkveU5hcaO3f6w8bIGtxT/QdE7/Kg2nCjaUajBUqEX800o+VDmAd5a
cpoanFQwkiYrdRy98aHqom2uxnSxC2KlITzoGenyGGNQNT7Y8OPIRwZuZPis
fZlNoxqPnKLfNrx1DCn/zNviYqnGdkyDMWLt7EjUIoLyZH8VtiGR8xlxYkNs
s05MwlFVmJXShGdUlxXt3b3HdeZuFRbYuPhtnzkLmuu7JCTDXYU3Vu2Ug98z
oVY1wfPy05U4RIYyb4GMEX1uYFC8klKJXzl6cOXTHUDRF39qaphVYln395MD
mvTIraRf/5ZQJT7nU+pX37sPmUmUWeh/r8CU+N6SczA1Us+Mf2qSW4GV3rEU
3ntOic7xeXpZ2lXgq770Z8+HkSPOWLM3tlIVGM6teR8fJEW0wjGyvzYx7t8T
DAqRJ0EDXMY6lM4Y9yjGlLgk/iVSGIVtmckx5hrVuK+7+5uwI/8VyONbjsvu
bZUTYVuEwgZOFTlQjhcd0rSPGG4STPM+lUTYFyz8fP9JDYN1YmJAY/jq0S/4
wdLeVLr/GvGxiX3jdkIZJmrOfZWbWCWcyqYZHpwsw/KH5YeP5a8QVz5mCthn
leJfBV8OR60sE2zxdnIeEqV4/Ey7LKXpIjEXgnRfF5dgT0+pxSW2eeKzO7V9
PJTg1rKmWZW9GcLNriP4Y20x/nXiiW/koWlC3TQyvexqMXbc4ctIvDlJcN02
rG7qLMK79btfBN3HiZUr/40O3CzCMudlu2biRogymfXNudFCzHOg4QnD3iDh
J/zl4IZRIQ63FGBpj+onbnF7CZIvFWBz92vf2ix7CX4mNQVG6wKsGk4uJvSk
m1gnZ9Pj2szHtD+/sz9O6SSqNiYcTjvlYw9D7m4/8g4iZD49RJrsH2aa5nbb
30oYDNp8UPb5jIsPsffr3m4ihJula28yfMYsfmlpNjP1xE4ZxbhxaB5udrxz
/mh6LdH0sXXrCXseFjl098jpxGoiIj6cyS0+F5t7MS+tNVUSJq/1hV7x52LG
YA5zHq4KQtJDQDE28xM+0XaiOObMF4Lc/od+pvgn/DTK40qHbQnRaVrytKQo
B/+RLb6tu1FIxN12f9OAcjBFXm/B9U/5xFB4hE6WbzYmHaO6p/4+j3B4JhjU
GPYRv5p+1Wxa94m4trLal52ShQ3alo+c5cwh+A0LucILM3FYnZga74UsYrfX
+YFTwwe8XmCWuuqSQfQqK3wyHMzAvXO0X20p0ojML7S/lZbS8Qnzy0fHapIJ
D7FOOZE/aThJqJR6ouQ9oZv81v8QfRo2SnVeSZ1MICSO6PX84UjFp5W0qLsk
4wnawBPHpk6nYCnX2xvY4B0xRbJs3ICSsdbpU1oGCVFEie2njx/VkrD8e+Xn
yyciiJAFh1+hBu9xK/tOoeFsGPFAF8k+f5yIW8PWuLRG3xCyHRS+99wS8FvV
iGfd1K8JNoXmzstv4jG9Nv0lY4NXxNij42d0leKw32Mt07+1gUTgzZw6gYfv
cBd5v/T3w/6EDBC3Nvyj8RUpFQ+qHB9imb9psTIrEsf3DcZr+HgRUQw3nwe1
v8X01x11nkZ7EMqb0/R3foRhlgSFss8zbsTWqHXsSeZQfCzk88ly/ZdEau1f
kXXJ1xj/ZglspHEltLP8Kiu0X2FrdZoHv4qcCVpBkRT2HwE4ndmdvDb7OfFg
W6kxT9IXr2ve0xlZfUrUNRh+VXH0xLN30pL6HByJ4xFOB+ZKX2I63qRPf2Qd
CLJ2IePd3ef4wI2gS+eV7YkvlgYfRL1sMY144sbRIDviB5vAdC37Q3y4xu9J
4347oiOTc/yGpjb+qsghs1NnS1Dcu8rtI49g34Gz8STFtkS6cKIDfYkhlF7x
5MmbtiUiHd9tdPdag59+DpfrZTtidNAsO+GaI1Tfku69P2tH8EqfNXtU/wLI
rxIpP8rtCYlrL0M4493h/F5jrWqfA9HrYmrlqesNTl3152WEnxIO2apXv7L5
Q8xOy2XepmcE+4SEwPXeIKBLCb914KMToUcTSDaqFALTrF8M68ZciGxukscH
T76BKHEZx5kcV4Lk/JNxecowOCjdvvyJ043Q0JhTdZgOh/xfF8f1ytyJRLPb
ZRmVEcAjxlD3M9CT+PmyRXAsLgpIYztsfr31JhSiIJLRJQYuUhyxfjruS4Tl
5lJf0o0FdYt0n2MPA4gns0zSMsfiQd7zV7gACiZiHqusadEngPzvk3cui4UQ
NX890x/9SYD9h3Sfvvz+mvjqiw18lxKhtqTtKsVYKHGIdfvw+8H3kCisyO1O
+pZAieLtZQ1JEFx41ey0fiRhImzh1VeYDB3SRgolO9FEUEkysZqSAlVWa9x2
E7FEoeL4+r7wVOB5E9aRTJNATHSxZR73TINn/eoPrJoTCRp9TSPCNh2yaPXn
a8qSCNFlf/abRhnAqbJNpTCZQtx2qO201vwANsebk38T6YQb+Z6P38VM2KAv
zbMf+EBkBEvJJolmQdhYF29nwUeCoiaujFryIxjNvG8jZ/lE6G9RnTc/lw2K
bUmCZ/7mEndZC3VMj+VAtXaLoihHPuGXs8R2JC4HLui/TP1sX0gUXuHsb+L+
BHYjO0tHmUuImRmNMKfET8DYEWlmtlVGML7wvC58IhfSODg+nT5cQaAjxYwT
ybmQSCPztXyskjDP+9oecjIPst/RpMb1/8tDVe4g+fQ8aBERriKnriNq56+r
bAh+BufpROk0mwZi7aU3bWrmZ7g+nzs9wd1McHGUNtwSzgcS3h8mqWxthErB
ihdtTj78vesx15vTQTxV571UJlYAZkfSL0u4dREpS1rkVnkFcDQt6iyrZw/R
7eFbyXWmEJJ/zDEnlvcRJFxfXnQWFMJCPMmpF5KDxOniVcJdqgh+nOHMm/86
TOhcP7EjWVIE7rEl/xWsjBHe326WzEkXQ2Hbml0J9yTx2dvfMeJLMeRGMCcX
bk4RUzz47BUogV2qasGpvzPEgbK19T8VJSCimJxOSM8TMtr8eVlypfCDQ4xF
9fMi8XD19mP9mlKwLLL4xvnoK/HWL1CEUbEMTvwYy9Kx+U7UnKj8VlVfBpGn
n+elGv4gfpSvf7BV/gI8Q/kTpFI/Cc7bAg/5m7+ARWrLv/TdIK7+vCMwoFIO
WxafRYwcfxGOgcFzvm3lQMkilB70bZtIPlmdJK2OofhRxMOtxB2iq3LT8Fsn
hh2TM1tkcXsEiXDYq/ZTFZDrZKt205YUsf75+CjtYQV4Gfxl75EnR0INDdde
fqgA6qc00UJylEg+bOq0ztcKEGoMSth5Qo10DHfoJU5Xgq1NdpL62D5kLcL6
lc6qEnYRt0COFz3y2hFpnvlYCSIaxiynnhxA7xqVM758r4TolSM0wlr/7lPh
Rr7holVAbFFv1xxhRk1Gzg8ePa4CFj1SMQ26Q2hS9O1lpdwqiGCLmTolfBht
/c3h5/lZBZqn8y8zeB9BDM1NlL8lqqFjlZte5CgH4ouYmemyrQZb1ng/qVVO
JGO8W/0hvxpukg9uClPxIE1xtvcem9VwTDHxvXgpLzLbE3O7e64Gjg1N3h6K
OoFcW67eO+tYA0rXtNVE0/lReKSx7IHiGuh1kYt/tySAskxecC1s10BE807h
mtF/qEYicrfiQi1oja1bW7MLoyGSvNHI57Uwzxr6d8FXFK22tpTZlNVCkOOb
lv/+E0fU0XPRV//WQr6YJ6/ZugTifEDy/ASqA7X5fQK3Fs8gyTPsOn9d6uBO
SKAPJYMUukImeb4P18GRifLhIZML6F67Kls2ST1cPbmWmbIlgxxjTH95X6wH
esO/QskNgILMXvYZuNXDvbdUbQpWF5FPM2n+TPk/3PG7TnZPDrmddnvz4E89
COjYVMjkKSCnYDKbr+cawNBq2Vs4UBE5/HBTt7ZtgL/Urn3Kr5SQzXVykfWc
BuB2KROhrLiCLPLd9zt+a4DkfGtOLm5VZPDUo+mFSSNErL6M35bVQDrDFOnk
7xshR5i2wqhOE90gPL29xxvBoMBj/ZjlDXQtjtKEjqMJUs5myS+d00ZKpF4K
wbeaoEhu8VD1qVtIzojqOHNYEzC3bPmOX9JBMrVepG87m0Dab+lIUbAuEvP1
Lo+90gzOGsTFtVEDJLRM/Y7Xuxk+3dm8r3bdEPGr+jxPqW6G109bNzfnjRB3
No2OIEkLDPy82PI41hixM/pKfZRpgddbHbeePzVFLE/2HRZ/2gKx23ccKJ3M
EEOv70Z+fgtUPCp0lEk3R2SRfrlfhFvhVy2lf4eSNdr5TRty0bwVrmwe5L+Q
8Rht6vo/qk1thTtZRetJAk/QajndNeWZVpitzTpyt84WLXMHCLVyt8FXU0q3
YU97NOdGT6dxtw2U9XoEGs0c0cRMwGJPZBu4tueGktk9Qz1pgSkjTO0QwPNS
cnr/C9RGy+BpoNYOf93MaSQ7XVGDRZDRjH87MPgnmO2ecUNVbQxyDxrawbyr
3l+v0B3pRVw+aE/WARe6nqr63vREdxq99wq5O8AjV9dolM0b3fpdv7KNOqCh
+YTq3F8fdF1XqdX5eQc4kdYV/Hv9IfVAnzIc2QFxmiXvQ+OC0bXyhg+kRR0g
GpF3w5wtBF39ThMt39cBqbGiLm3PXiMlbmU/z/UOUJGr2pnZeoMuafg+rWfq
hHv6A9PVoWFIzq3xwT6xTih/c/99ivpbJDOjfDnQshOytAIFzohHo/OH/M62
+3dCrfMch+jdd+isYhMfY0Yn1KlzWXTnxiEJB9pD1xs6Ya2sMon3aAISTbtC
ETbXCW3V541t7BLR6UG/n30UXTBYSjbMv/QeCdI2T7Ed7wKu64eUhZ8noxMW
Vytj9LsgTNiUIvZ3GuJ5558z5twFH9IUqyO+ZSDOtuY47piuf37RNzhIlYWO
7tEFG5Z0QflUEWuRYjZiE1VxSRrogn0tB1TPD+agQ/cCLOc2u+DLREy4IH8u
YnrdoitwqBsiRMaf9Prnof3rKtKZGt0weitJ4kVaATo4JG7kYNMNKMopdtW3
CLFUsPnLvekGdakXRxtDStDhlN3c/Z+7QfwTfc1mVRliD5gZGujphqhKs6Ox
3Bhx2jSRJW10A3FhcJqhvwLx3MoRfMTaA3IujfK+56qQwAmnZ5S3euD63i+u
YNVa9B+tYWKHYw9kT0ScM6GuR8Krl5uiI3vAzn3l15vpBiTed3rNpKQHMu58
uJ0004TOlDGziw/3wGTD8f809rciqcTti3//9IB/LvlhT4N2JOMzbtbA0Qvx
FGcss1c7kNyND8V6er2wu3rge3NZN7p0IWTy1IteIONzviGk0vvPDw77NuJ6
wWVOiLd2uw+pUN0Vq6joBRnalrfV9QNI7avcbf/JXnj1yXPiWdEQ0uwSeKlN
1gcuA75OJm0jSLuIIZ3neB+E3yxpE6IfR7oeQ1uF9/tg18x18z7lFNJ/WMHt
7tkHGdk0HisPppGheorStZQ+cP8c2580N4NMzgZYH6nvg0CF54Su6xwy47CJ
mJnvgwDLv+3UUgvIguxWRTZNP3jsP6RTemAJWS8QC89O9YNb0rsbWfu+IvvP
+6QYzfvhsEqh6urZVfQ06rv+iH8/5L3MHE21+oGcXHu9UzP7wceff+Jj2Rpy
NSnNtmntB+I5g5QP7zpyV0noJ1b6IZ5P73Z7wgbyEvfeozkwAPttlUrOy/xC
fmyWJ3tEBsBXe/tmxM8t9GpGyuHh4wG4ssYbtK9yB4U2ccadeT0Aw1H8b7SH
d9HbHIp6krwBkDFuPukTSAJR4Usrzd0DQLNcF6BVSQqxTh2sb9cHwI3MZdSA
lhwSDAuQ4aFBMJ+720r3kAKSlGJMTp8dBJPXBa6tk5TwgeVBQbXDIEzp0QvN
cO2Dj79Vx4IiBuFK1N3kd4u0kDshQaVTPAgMRELo+S56yK87Isw3NAjZs/Gm
WcMMUJS5p7X6exDe8k/SUHkchLLXs86lR4dgxi69ozqTEbBjc7KXzBDYW+w+
Ob/IBHUKbzc4XIZAxd2BTTnxEDQKOh9biB2CqvtG/cE8h6HloNGlPDwE6f50
44vFbNCxqWTpMjH0L3+YdSYs2KF7RDhMmXQY3q59y2SS4YC+KpYvLLzDcHqA
L+LcKU4YSvs9My43DBwfyiQOHOWGCds6SXuPYfi1XOPjeIcXRhoo2dOShoGW
fKwpKOQ4DHBc2husGYZgrq8634ZOQI+1xwzd7DCYffp+K1eKHzpqqhsJyhGw
KtRlp8s8CS1s5NmP+EbgxPjElOTZU9BgIReacGkEasYjk5wHBKGCpVKP0msE
nqrZ/PnzUBjKHpAonEsZAY+ASkoWEVEoKoNTZnUjcPvavcmcc2KQc7/8ZwvV
KPx50mRo/FQCMov+Duzyj4Lqo0s7Vz9LQho9US56eRQS7uypDZCehbjPpT6h
3qMQHpKnRTkoBVE0fyzrUkdBk84rY+D+BQjXvXB9q34U9hU48RVRy0AQRfEx
XZox6OLYHIp9C+B3a4ssSGAMPF2zTFOrZcEr89wCVhqDj9rS/R8bL4LLjYLc
475jAHaDpJrkCvAsbeOtVvoYDL/ezfKWugT2O5LO3o1jkFzK9pjnhSJYJeVd
Xt43DuoNlja8CsrwcGtN6JjgODyL7xW2q7kCJiriTGpXxiH7QWgfuY4K6K3n
jOT6jQPz8Xyb/xrVQEdptXImYxwkxmWeeXepg1aMSCpr8zgUHeQ9Z9iqAfy8
/VJfKCfggSC1mOnX63Cixf6/vkMTYMAs1vKNUQt47Vk5v/NNQDMjXQrrZW3g
bNIi51GcACtH+9N3p28Bh+3GxnntCVCKdC5gVdEBds6wBU2TCVA/ebAxo/4O
sNr0tHp4TcCEO92Jnd96wMJhW/EufAJ8yanI1HQMgKmOOa8gZQIozVm5bOTu
AQP79YiFun/8mBXZ5rNGQF+z5kfaPwGadg9/cyjcB1qr187s8xPQ9tM7YUvP
GKiqOg1VqCfh8udNjRpsChQWj7WMD0+CV8zA0i6VGZCxMiq5nJyEVrvob7f0
Hv7LNfXTOZcnIZsu1vyyrCXsMK9yNd6chJMXhHnvtFjB7y/BTFOmk7Czvyaw
7ow1bDK2/2L2mYSK01EzKj8fw3qp1ZJQxCQEbvfLH56ygTVjhtFLaZOgmNlK
+t/IE1gpVq1yaJiECZG0CpZ1O+DbV2/7vH8SDEZmzkns2YPuLdmTL+YmIcW8
pa/nkCM0bYoHeFFMAa/ZQpeh6TMgVcxEfsxT4G/sFCj1/jlIhfH9COSdgvcW
WO3+VydIlmDTDpOdAsux1JiitBcw4hZCE6k2BfwnKrefBLkCUxdtaYzeFBy9
k+BNqL8EV+u/XElOU8AlsZpK9tUNdLOmFnOLpmBs8c/LoAAveLNzJ6agfgoI
hzDuewHe0HS191pJ3xSI921U3Qj3Aaml+rzK9SmQmI1lJWnyg0fnL5rUkk8D
30gdpdW6P6T4lLA1Mk2DgP89dzPBQGA+meXcIToN4XVeL4JLguGKPb9oD0yD
rvJcWKXfK3CtjZvqvzYNBjuqps0oBFaMXl8et5iGYbWQZOPS19AU78C4kjYN
WUfG7g3ShwPp6mr1j8Jp6Im7q/J9PRyk4KH9Rt00sPyl0DGafQspo7rDOzPT
UG7neNV4IhJGhfoCSdb/6VmonLBfjgIWJzVZCvIZ0PFioVvei4aX7HLJdDwz
0JfEIHVIMRaKzEpvHhCdgXtFq303HeNgpUiSlhlmoJM/PjJAJx50b558xH73
H99K3jU+NQGkQunPn4qcgWd97VsK3knwaNpzWShtBr4mF4sFX0uGFPG9d6KF
M7DoEbKmwZECLJ0/yKR6Z0A+O0dosTkVrnKb50vPzAA//zV+5o9p4PZoxhR+
/sNHTBMN3qbD9/39LYqMs5AyTSp22PUD8N9Vf3GFexbuTDSyDb3IBN3MRrFr
IrNQvafPZ+udBU1XysK1VGcha5980dzHbEjxTjC47zsLe/LyXZtiuWDwyTI7
M3IWoq7tfkmdzAX24fO76+mzAO+9FPvD8yBIuCvas2kWcupjvosw5YN9L1l/
Ct0c+Eqxt8iqF4HoXhvf96NzoPIzUUhPpBiWBKJtzwnNgUVONOM2SwnoOUkw
NajMwZLBFxqB9VJQPH5fdTFwDtp0PFY3yCqARFU0Rix2DrKnfp6SDqqAEvud
pacf5+D+llYgOlYJwk2hPrTtc1BsnV37RbEKWB/XVv93cB5etpTKKzbWQEdU
CJMt9zy0LtH28dnWgl/N3XtlovMQFcvjeeF4Hewe3txV0ZiHLqFHNBeC6mGu
nP+C1et5uOY25bUb0QTxC2s+BYnzoHRBrnLDpBl0mHD/bu48FPheVfc63wJt
xjftgrvnYd7V7vm7r61QQO+Tk8OyALHd5eF9tR1gffbG3taJBUh+cCLrC3SC
oAH3tYtnFqD4XscNlrJOiM0rWu7UWgBe4s6Po2Vd4KWzyP8zfAEEO7WcOwd7
QNYj3046dQFqSwRdbE174XfWyxr3wgWQ2VUOC/3VC1ak7IYsAwvgKh3JcZWr
H7TTrrw7c2QR7pctLD0OGAS+zQ/MjtGLULKycIB5eAzYajV4P2QsQpdL8LKe
+zjQhv4SHSteBF3KH0sdrBNA0zjfXdWzCP//P/J/uyCY9g==
     "]], LineBox[CompressedData["
1:eJwVlHc8lt8bx+8HeYSsSoUUZURG9nju+7pDEiIiMqJU9CVZ2SWrQkMlEsnI
FiKRlSQryZZSZCU08ezx8/vrvM7rXK/353N9rnOOzKkLtme4EAQpJSDI/1fa
Ny2XjM3LsPUHKxepnIRee5Nf8eLLgJbT233zJyHvI/egiPQyHNv6o87ZehKs
vsZkyqssg9uoFv8Oywl48uOKmq3FMnBGS0/4No+DDXLJvvjaMhC69LXRdR9B
PpZkoHV7GczqPindCBkF5jqm9KvUZfhzOmSIsTgCRQIR80P5y3BONlJg/+dh
YIuHRSBtazzDf9zeg4MwlK7nnvRujdc9Idh9bBCKpagm4oPLkD+pyjEbHwA7
2RChvVPLIMNXE5/9sx9KVC7mOCArEMUbcSFyTx9cqdS6OkVcAau9T0xNIz6A
vebKf+eFV2CDr0bN08JeQPQDtWKlVyAoKau/XPA9OJj4d5STVkDFq6Yhm7cb
9naol+mbrMCtvFXteasu4DL/k9xmsQJvZX9I8WV0Qrn1BadPTiuwi/qYXIx1
AI/z+Z/rwlbAhpHAZ1fVBpIWx3ZqRq9APLv6Y5BAG2gYwlH3hBWY7xH2rfF6
A+6Soi/r01egd9HqvJNaKzR9fh53oX4FkIboy8Kjr2Do3aPazNYViD2/RZvW
0QxLDVcXurpXYPK6zm+lliaQyHQ8svvzCqQU3cyafdsAwS5MyTHGChyN/e+l
8q46uGk5a8XLswpnO39/6javhSek3mhNwVXw63h6pDz0BQxKZX+/KbUKzVFp
F1rmnsOCYIJEw+5VcCYfCi6Xfw5cLP/D83tXgXZIJt3NpxrUvxhXG6Gr4BF+
LD2JrwoOvt87d+HAKuzIi1PsOPEMTjRt3vbo8CqsVukZHayvhBuPvl+muK5C
lmaOmgahAn64JpmXXV4F2d2/+07cKgHEKujS2NVViCeKRAReL4atmGsl7+1V
iBq6LLEvqQhMpdXETz5eheyjdVptxQXgKrT10K3CVZDJLZVSepsPQWwksqFi
FaIx3a/H559A7teBb5tbVqHN0K4aP5AHL3sbNhl3rkIim91263Iu9DU/OejX
twoUGZXqoeYc4GQFP+2eXIXLTg6lUUezwcVNIiyKQIZbLusOiiZnQKA1d1nZ
ejK4TW9UvuH5EBJh6euYKBnaf51K4TZPh7odzSZasmSY0Tj7PVk1DT4IF4ac
VCLDyCaLzxy1VJjj3C65pUGGReZGz+2G92Hz5EmRH0ZkcIqkuCqdvwd7+8yN
xS3IoGkY5RB97y6YtGgGGx8lQ9KAL3Ks9Q4EZK8bf+RBBofVjC3OesnQ615c
aBu3pr/DUnSAmQgxu6IMVpPI8Fp2k9PISAJoz9m9T7tHBlspUQ3JxuuQ6Y0s
j+eSofVy8bqfBVfhiOpIfFQJGQLI6jZvSuOB52/pVtkqMuQspdb71MeBd7AD
5vl6bf/U6ObscgxI66v0r+8iQx5Ss05UOgYGGFyny/rIoBD7uLDjSDQYRJcn
/J0gg3gNc+Hwoyjgu7FuOIJNhqKuyDeVZuHQaPXZU5qXAs+eLZr92RwGF0Sf
0Vs2UCB3ZNxq5XcIjKS67OTdToG28H+j3p0XIfG4RnXRbgroen2Oor0NAkyK
z9RiLwXoWtZdUb2BkJ9T7Z1sSAG3Kn+JfrY/OJ5OYGsYU4C7V3upX84fBBXc
7gybU0BWu++dzjE/CCrjr5VwooC7k+NAcN55ULwweajpJAU0tVQ17PR84PO+
F+Nu5yjAFuHao/3lPzCqPcmVH0oBRI6ke8nOC8hhuvcPXqHAkW/s8go5Tygm
bVBcuEaBst8hWpE8Z0Gkte6wWtqav7smdtXzHtAWd2uyP4sCQc/fKYv9PAWh
B08HBhVQYLHC78Ay8yRM9Ainv6yhwDhiNeCAusPd27PKLk0UiLVxQ+bHToCp
bUMzu40C1j70g9csXaF89OyM8RAFjBpS7Oq8nODUQ1LI3GcKDMizjjeKHIfN
rmL8CdNr+XnctxXocoDIqSa13n8UWJrU/dzsaQ/q+fda/egUeF8bOtFraQfT
nufsN3JRQcvihfUVOArmPzdFOIpSoWOH+cRpCxtgVyxsYGylwpfmsrKLHkfg
WUBL9qOdVFh+P1D3doM1bKV6t0+pUWFX08rr1M8W0FO//3i8LhV4jybEZrub
Q9SlLUsKQIVXjUXR16lmMMf1RvS8FRVka7bei3M1hYdvHzwRPkaFI7eNaRTF
A2B13Ve3ypUKkZYRmUQeE6jZIOFK8aHCZF0IQ3xuP8wpmz4ODKKC1CtE68of
HLaaB3z7HUEF7dwNxeZEHCKvdp+ZT6QCvwFB1L+CBOVPyIWn71JhISdB48ZO
Q5hslV2YTKfCdG1fmGiBPphwwn3HiqhguuPYl+gFHQjeXlhpX0mFih0S5hmF
2lBkOPivv5YKg5H1ZeEXtUAgVDmku50Kqydvn7PDNYCU6vDStHetPiqMt9tw
H/g+j2W0DlPh8G53T4aJOgz8+RzVMEMFadH20k7GXuAR5mvVXaKCvX7f/meO
yqCjosXzfJkKvrufbubu2QPp525cL+OiwXcbtXUBf+Wh+1pdtyI/De7WTN0K
yZEDZv6MYL4oDXo7Nm9/4bEb3KdIdx7tpMHNTdtsNCVl4S5ybnCbIg2MPYcY
tUIy0CZ9f3OqGg2YaZFvEdGdoOD8M/0WRgM9+mhZ9SUpcAzbNs5vSoPHueER
rH4JSEw7IH3tMA2c5cTO78S2wa/BR7lRLmv82m172I7isPNf1wzDgwbJ/UYV
Z9ZtBlsRsnyoNw0e5jT4sds2Qo2lValfOA22r64XrQsThbn/wn8uRdNgIuz5
3mUfEdiaUKB2LoEGBsh8vtyEEES+ZVeffEADzVHTvHMgAOXTSuQvj2lQldsY
4Ji2HiYJDnpOhTRwGmnPmCLygdjO2PCRchqYjMSMP73NC8ZYRaPtCxo8jxDr
9ldZB0Eun9m9TTRwVLhGIU9wQ0E4cb/FWxqshorJixdwAX+t21vjIRqUXVHt
7/dCgDScRGz5TIPXwiodg+1szHe59hBpmgbldxMu7frMxLJFZ5LqFmggQkvY
3CfIwPrVRHq1/q3lZ5b/VdWJhnFZkUSe0WhQa0+llL6mYFo+XrYqBDootqmp
du0nYw+KWkbkROgwaRgtbnN1GetuX9qau4UONA+3g7Jm/zDmzFZn6R10ULtZ
kH9i+19MlfvAo4fydEj+5is5y/MHc5PxnxBXpUPSN95FM8ZPLBkeydzTpsOW
eX857Q1LWKtrl4cwSoeMV3sMCtEFTP6hzDzRkg7VMgc8eJbnsHS5kFB5Ozr4
bvpm7mo/iwk+6+E74EKHEj7t41WD09gVkmy6x2k6HHma46XlM4Utd4TsifGh
Q/wPzXr17d+ws0ffv8wOWtNj7y2Q7p7APn2VNX8VSYfGuTuTuXFfsJbV9/8x
b9Ah9Ozc1lXfMUwrehdD4j4d7kFUTkn6KFYoGJak/4gOPUXNKn9nhjGJB72S
jvl0IDxtisiyGsJu7dpdFvyUDpayuc6lQwMYoSKMdL+GDqeR7rR9F/uxIIMP
PdVNdOhNbKCfU+3DnG3Cf/55Twevwre3OzvfYb3jHy4Jj9Ah58EP5EBjF2bk
JSek+pUOxKB9sSLDHVjNcniW5RwdNj+Mr80SaccUo/pUvX/R4UX0386bPm1Y
Jr/8qwQyHRiqfD15c62YcGqEdRGbDsPL6gd6Il9j5DJ5v1khBhwTsEHcF5uw
c3qRCM8WBqh3ytkPFDdg42/6k2V3MEBSd0Lj+N2X2BFrBZn9CgxQvTp1iJBb
i735FPnMTY0BJ63MWOtHajCdswP7L+sy1v63Avkp5edYyV+FgUxggBx3poBc
ThWWzDf4b8yaAU/at8ebt1Zg3CmKsVQHBoR9kW1ptH6KBe+4vHGLOwMKJRw/
/RAoxRZKBvO0vRgwayYYd3G5CHPV2aNl58eAp1kevRh3Idb3+nJbQCgD/LlS
jVz08jGTw0N2d64w4M+DKN2tyXmY0umoi73JDAg++Tsj9lE2lvV7aN3PBwzw
Grn1+vijLEw0QilVIGeNl07526aRicXxXpFXKmbAvdwtJXGUdIx6Z/iF2bM1
/1vd5bfNp2He25UPer5kQPWXEmcjQir2tejKaPxrBny3KslmQAr29pUytbWf
Ae/F/l2X2nUH07OIvv5tjAGxRdpbCPG3sbKRka3IFAMGTFuQ9/Qb2I5Te4ul
FxigJVJacDEvEbv7M1of/ceAZFs1TCbiOsYbNtrlTGeA7jfhZfTyVSyMR8Up
nIsJcZeEvkQWx2Hukh/Da8WYMPZa5ZSjTzQ2WKAiMCLBhKfhfAQ6Mwoz1YjN
WJFlgkNLw1Sa8yWsvumj8kZlJuybja7l+xOOqRxSbdynyQQZX5eZnS9Cseyh
WMsjhkwo/9hUy1MSjG1yHxv3NWbCzamkItnOIIweHMcqPcqE77+nX28L9sf4
h9t/gjMTPuicOiq41Q+T0Fz/dfAUE8aXQt7YFZ/HlO5Y9Hr+xwT2tbvm5KPe
mP7vm80Mfya8d+H5dnTvOczscF/57bA1/Te7zxLVPDHHUrHHu6KZkPOW2+qH
4xks1DMtyiKZCVL649hL8VPY9bdjFybSmJDcTQjxznfHHuyScg98vKafp2H8
MOcEVhR94gixcM2vTyK/l4oLVjuRjWeUM0HFLPIraeE41o5Oq6u9YMLG4O9P
3YccsJEMOZk3TUx4m1J/9uS8PUZ2KCEs9jBh8v3cO/9oW4z3xdLfy0NMWJ00
xvsQG0x8k9qU2Pja+VRa1X7UGpMP8B8omGaC98PFPvFnlph2X3WrwSIT7AtO
qHQ5mmMmquSq3n9MGObvPmyvbobZ3dDLO0Vngnb79RkeLVMsyKwpNnE9C6oC
VD7bVxlhcQWcQGlRFkg59698lt+PpfAYna7ayoKnyQz9pGDAnpyKszPdyYIj
FP7wXZ9IWHVLu8knBRYQ9D5aTwYaYK3S67V91ViQemCGFgF62ECkhRyXLgsS
zA494NHXwf7p9a1TMmXBtpjy/HuFGhhXmhi56TALKg/dGdklvg8TW7Wbs7Ff
89NdZm5noYbJHk0bmXVhwe29GSq8hXuxfc/G2sNOs0BsdMO9KAMlDBeWqt3g
w4K6l4I0Y4IiduT8icKcQBYoONxuUafIYX57pq91xbBgi6f1nzsnZbEr1+RC
XRPX6k9yJR/8sBNLnvX0+nuHBY+PDpzXb5LGso1LHOPTWfDk4HRWwTYprCJn
yWxbDgviRi5s7C7fhjVzVPWfFrHAIcRCkh2yBet19d+zv5IFyQ4TbIbfZuxr
Q/W24VoW+MWws4fub8R+bSOvP/eKBaGX48p/TIli7BA9OrOdBbmUQJvvdiKY
0Ej4QnIvC5Rj1jVG9m/ApLWaPu0eYUH7isM3VFcAU7nL6a77woJqZ66FuWE+
jPRnf4PlLAsyiaKSdUW8mKVVXOnkEgtO9HCV2pXyYC5l7RlBKyzAo4YX68e4
MB/+9Tf4mCxQWYcJo+oELNLLIjKTmw02lcrLK8c46I32mz7qAmz4IfB8X3Uy
E83c3efSJsaGG/UvvHn46GhZjNhhRwk2zAYs+lTWUtDGSTt0SYYNPYyM5J8P
V9EeLE3lyh42bPL0+ujwdBkdzxzbvmkfG/aqP6+ZX/iLLtIlhYr02PBBQTX0
t/UflNR+zfIrzgbPA2VT3sE/0Vt3lhM3HVrjjThWf05fQCdc3LrMbdhwbUU/
m497HlVXfEeMPs6GyXt3JQNLZ9GYZR3T2pNseCcwJKZ5cxodbM6N+3mODbw2
5uELud/Q3YlCb3YFsCFljHddwIcJNNg+nOAUzoahgV+NJ8vH0Y6dc5Acwwbq
KI03/dMYunXJ5nJ7IhsSDi1kdFuOov/VNjUy77Khzjb/lz17CG2I2cPQyGAD
Z/5cmu6PAVTQ6r7+uTw2ZDcnb2cQ+9ET2wihj0vZcN3tHbdLaS9aMePzYria
Dd9Om48XZrxDkcqPKwKNbAiOnJis/diJ2kaYaBq1sYH92NBBxbkdzTOt9A/t
YUOtS3qvk1QbuiIqVVk+xIaMtNiPmuKtqOmXa79mxtfyNOnQwYxb0LSi5b2S
s2y4zNzSyIc2ofOBbt42P9mQezXrhNjBetQA3hVfW2UDJZfvYVhmLZrErzvf
xGJD/Ojo7Ix2DTo+nCu/so4Dx1wqAssFq1HVHKEzSkIcOKeJnBmUeIZG+YTn
uYtzIP5QuGhXTTnapzv3LVWaA18MYph/bpeisty2O9/Lc+DJgqIh1lCEBvY2
neBW40C+K1u4TK0AbUvf80hflwPmli9vMGfzUPEz9z9fAA5EYwsv80dzUE91
gkTBQQ6MOLHpV1iP0TqGj+O4NQdcFMPU/pVmovwdH1PFHDmgZ/9yF9ezdNT5
rsmwmTsHPoxdo/HwpKFlrpUbo7w4ELt6qlXxUQrKVpSyrfHjQK2ZSJL7xbuo
9cq15MVQDgjSb7nZXE1Gs18t98pEc4DhjGvEpNxE/yW6bXBM4MCnK5cfbAhN
RI2PvbO4dYcDrA47d9rTa2iKjG5iWzoHAuOl6+dU4tG5pdxOeg4HwtWVYiz/
xKC6dULEfSUc6Fh8eeLUryvo9djwA55VHMgTa66XNLmMfrKai31UzwGdxJ5X
uQIRqLKEbetgKwc86rqdwvaEopGzTQj/Ow5URc1ymlIuor2VewAf5MDQmPNI
0IFAdEfk/UvBn9f60dlE9tPyR/0OEhrLpjmgraBZE/XCF20VO0+fWuTALZ+q
UhUvb3Tj149621Y44Ld7Ji8u0As9XWwSYs3kwPyNj94qH86gzgYfPxlxIbh0
RVri2wAPlGenEN2VF8FJi65l7cdOomXrTLaF8SP43vX6K5PzJ1D7xTC9FCEE
V9m0b/+5JGeU3VfhUCGG4JeLsNxDiY5owYvZ4G5xBJcNf7357Wd71DpTMnVW
AsE3huEEmZCjKDXapgbZgeDrPY1nE+1s0GzPa0OSuxA8VE/yFOGTFcoX4fVu
lwKCI8l4x4VYC9Tv1qFWZWUED7fz1/17zQz9mKP0UlMNwVOnU0jULwdQqBGo
NNRE8CtKdg+WI43Rgs6lAmNdBP+QEvBCy3U/KjT+/pGFIYIf8v1t++w3hgb/
Lk85Cmt+tjyeOXvTEP3KlZzkbIzgf3hkq8Ov66Gm4v4xHgcR3NF5z2GeUW20
fI9tmLcFgj94S+Xf7aeJiqOafoHWCO5fnz793WIfeunIJs+IowjeNKzPOtOu
is54rLrGOiC49dkL4dZuyqhlyIhdkjOCHz4VRlVwUESfJ9Za3HND8PweRllz
nhwqlfXAKMMDwZOETc+RDXehcc/C9PM8Efz+9AK1aIsMutTmpF7qjeDv1967
hJs0avfRUKH6AoKXFUwSjegSaMOilHRDIIJPvpte3r26BZXlsDa9CUHw5qyA
kRMHNqOJYhMC7yIQPIMhdKzwmxj6T66FazAKwZVY7Mznr0VQJ/0c2qdYBN8i
lSa8v3ED2moZ82fq2tr8U+9r57jzo0ruHt8XkhD8XGPfUstpIno30OTrv9sI
PnpJQWx7Mw9Kuyo3TL+H4F9SIq7be3Ch7g95e7geILge7gxClgja+fR7K38m
gp+X5fwq+MYkqb/ufCmWjeC06pwJQiqN9GCouFLiCYL/ooS7OBSTSch8YqFs
EYL3ZExiUqIrJC+Gd5ZSGYJfODyZtfTmL6lP6PB9jUoEnz+7vOFjwG+Srqzq
DYPnCN6aniNoO7RIytIWjjWqQ3CyzcbbxMfzJN5Df8LMGxHc6NrxWtWOWZKv
S7+fbQuCCwv5fDM3miaNXKjydGpD8KGLTWf4iN9IWOy9E6c6EZzrRnyYnsRX
UkFqkP1/PQhu4jilbfXwE0moxN4yoA/BYyQJ1rrRo6SLTTrG4UMI/oy1tGz1
Zog03rfFIOYjgpuq/yePHhsgmcxQ1RPH1/qpMtw+oN5HKqOMKdydXLsfEzGG
7+73kDYJNEg/nFnjy156HWjQRZrZd0mwZAnBrwZaILZ5b0jVjkB/uYLgArPP
pauTmkkSPjv/vqYiuK7MVGjnz3pSTBRhvouJ4LF/HE0UG2tJtgVvhsd4CHhk
fOAD9fNVpPqXT3q+8RHw7OwR3xWDSpLs+/g3PwQJ+HfPPdOj98tIf5cPPqNt
IuCZVx6NSikUkJL399zYJkfA8+qqFYcTHpJMm/M0xxUJeOJhQcPTCWkkpkHE
p6y9BPxYDiFr5GsKyUtLSXG3FgG/6LOOEH02mYQrXH+jakzA2c3SmabacaQ/
giZ045MEPO357CjXWV+S9ccGT99HBHwR1++IvIuThC6UGr3ZzIXfCB43+sOa
NGw2qWt6IcGN7+au6tYU4zJknXfTOSbEg1NmjbpYt3cYEIgD6cosHlyqrua7
bqyqvo5ZQKs5wovvssIq0jQ26dHHy+Y3/+PFn/TZbOuOpOuY+HQmHybz4kqH
1Hf/3r+qc5MxrRdP58VxQ21xd6G/OjslJBNWuIi4e4+7wvjfWZ2DDgl7BjcS
cdHKjhZXqQGdlP4z/yVrE3FTxs+XxaeKdFTbpZf4w4j4vPmix41t9jqh9gYp
RpeI+KTOb6+E90d0Xs/Yk8Kjifgomu/m/dpcx4775o0fCUTcbGNQSeQ/XCcC
Z+ztfEjEZfaludhIK+t01o+ej28k4qnms5Z5igQdMfPlzU0tRLxAOChNQp+h
7TIm1LzSRsT17u8zF0xb1f5NOSB0+j0Rf3Gb175i16K2uPbzcqOvRPwgoqWs
cXJY273tw7HwKSJekS9+x+Znn3bx0UX2szkirvLpcBp3T7c2KUDWWuY3EY8y
6hNabm/RvkrAKI7LRFxBJOCDXWK9dl/y8cfJFCKuantc5h3zubbEzosHOxlE
XGRn/Pn8tEptj4rk3xwOEecp6dqSZVCi/T9b0d22
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-3, 3}, {0., 0.5214846785959564}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5185781042363987`*^9, 3.5185781500823216`*^9, 
  3.5185782142846403`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1Qs0VWkbB3BqFJJrRYWKiiSZhJkikVQMikiocUulSCQNRkZFF9JnZCSF
IaFSjuNcnOM856aO+yX3XHLPXeSSOOZ9Ty3fXmuvvX5r7/WuvZ/n/+5nk9sl
mzNLhISEKOjEVy2jNQMLC+0gJDjGjGwiy1/o/P5/B1be9D7LaFt0be2KAZZr
K/AX8DFqpMS8tEpfsWXxfv4FrohUa/OiXaJ+HmsKb1r0TGzwbTBqXHSaZNva
hI76RSeZ/+z3/k7d4voxTkcCQvtrFx1+0fXatiO1MPvDfLLIjOXj9zDww8FL
swP9hmuA+MMjLAOrzRY1sOqHXcMqN9dnVoPG/Hd/e9p8mipWDW7T3/2wsCch
yasKPvZ8t9+O2afjwZXwKfO7C9rVJV6qVEBSK//7+oG71cI+lgEhfE5gVen9
JsefloK26aTAXkoe9uuNS8CM/EFggsZtr84uHlx1uCXw4ZmkgxLR72DfDS8+
dntR7kY9vbfgFcKZxWbuGjE51FsEEsGrvmKnJGuccYgvAlZP8xT2XxJnI8+b
FYGu1sAEttsfaVlBU1yg+y0fw655zdpzo4ILR/rShrEP9LaX3svgglxX9wA2
UZHvHBfKhb/J9D7szbaKI0n2XDDNXt+N7ezzQi/VhAtnTBQ6sePu7Ln+TIsL
QRmj7dhl6cXvstZxYb1aciv2T0wH6ZxlXNjepfoB2+BDnwNhnAPO3KBG7CtT
V1NJbcjBKXXYPZoPdwGJA7rTRyqxfSrzs2VTOaD37mop9szlehXPexx4nmf/
TrAep7ctJowDO6bUigTfv2o6kRrAgX5CFxtbnCwvt9KFA0tM5BnY1qLqlXp2
HFhuG00TvP/JX+65mHNAzGmAIsjvnMNS4m4OjHjZ5WFrGydOOIpxYEipJgM7
IDb79U0+GyzIbmmC/ncVXMiZYEO9b3WyoJ4RH7qE29hwZeFAAvbthsHk7e/Z
4CRzME5QH/U5JzseG1Toyg+w7UsVazMJbBgpsIvETlTc8aDmORsuNL4OF/Tf
2/C3uSQ2eGxs+RP7nPRprnUkG8Il0/0F+bZLJk45sUH2Fs1ZkI+M174bj7Gh
PfKyvaD+M6BpbsaGsIh+a+z7iR/Tn2izIaR6tYkgD4NjLu+2sEFdqmgPtryh
sNLndWy4tk1TR5Cv9k0PTUXYoEZboyroj/auYz6zLIg5GrcOWyPcZGXCKAv+
miuUwc7b7H5rsIkFJndFF/jIb8+nB8TmsMC+Tb4OewWN+DM9jQXRdnHF2Ecl
ioZ7ElggeiC5ELspp+fMrzdYsKbBKh1bWWhqk/s1FgTuHYjHdju2rC3KmwVb
7gvfwR6a2Gr/8QR63j/mArb2QX1ZcUsWaO//5oQdEH+oQseEBSHe5RbY/F/O
mUVqsoCzJHobtkxolp6WMAuc73Jb5pEjSOo86WkmnFdXLsaeHXl+cmKICVu3
cIjYnb9nhFAameC7su4Otn3CFsnHFUyQt9jtj11SlZ78J5cJZyM5TtgE4zS2
yRsmjNXbamBvDVI5viWDCWnbDkpjJxJSe5YnMYH3xWxyDv/PVFNEyyOZILnv
JB3bRuSJ1YnfmcDKzTPEfmuo+PFXOya4tmxZj73n6uPLihZMeOThOP0NWaXv
UVyHHhMot1peYMdvWLuVq8mELGnZm9jiDgnkDBUmkOuaHLEnePHNFySZICox
uBT7rPCai1Y/MUGhRKF+Fpnkr/HN9QuApG1qBnaEnZrxUCmANO2WCbba2k3l
QsEAHbLV7l+Rpe9uGCvyBKA0rVTDnplVkrtnA7BcTvHTDDKvZd3J1RoAjQNO
7thvLNeGNK8G6DRwV8JOYMgnJwsD8Bz7aqdx3lNW9WxrYsBrjqgB9lEZOdFR
LgNWnwwYnEL+JVxmO/ENA/5nNP8PtpiH5OV9txkwnDnRN4mcrSY6b6OP7isd
d/mCHJuwbKOCKgPu/xM0OYEcJCZyoFWSAfJtJRHY5oPCd872FsL4H45PxpF3
OQu91KwphJfe1irY68r5FZ8LC0HKtunfz8iDOd9WhTwshAdiovFjyLUbZvWN
/yoEW50Totj0BzOOy7wLgdkdEzCKHOU3mfLAtBBUlIX3jyBr6o1qPpugQ4Om
Q8wgsqfW9evUVjp4nPfjDCAnb5WqKX9Hh5K8xNF+ZFn5nYFTj+lge6JO6xOy
hRQUi0fQoabUyLgP+eZya8UNvnSQNztn3os8Pe3DOmRKh0GrUKNuvD/G+HLO
WnRQNcjU6MLz6NN9T18FOhxOE13RidzSmLPi0RANHh4oyGpHZlNH7AbiaPDC
S9ymGXkuNzSTH0qDwQzN5kZk3WzJb7LnabA/Msu2ATkzUStlryENqCpnFGqR
O2IZ49ZqNLBy9XGrwfW7Z3XQQ4YGcg2ej6uQo4N9BqJ6CmD4Q0BDGc63P98g
tbIAOstVm0qQhS7ej8mnIuuOvuXh+eucs7stugA+mRW6c5EdDEdCd+oVwKmo
qLsFuL+6odUHNhZAfNOrOjJy6Q7JzQ7iBZBDqhTJR96nrFUc1kaFVv866dfI
gWsY6x/yqCDdHNr/AudR0soni0AF5eV5/2bi+b3gLVcTQQXzU7zcVDz/pufP
9PpS4USVtMhTvL9GoymzjlR48ixXJxFZ9OOrU6o7qdBTpK8UizzCHH5+pYEC
nQTy5HW8X6h/zt5mUaDrVNhMELJL7krLJy8okCdzqzgA+X3qjvGi6xTIKvKu
8EKWSCw0bT6PbKbH90A2i7X8Z8SWAjJHlnw5jUwJ9zaQV6fA3u6b6jbI40Hz
97fLUqDKxs/NAnm7f3SH0RwZrmyudDBFfur+KuJcFRly9HV9dZFvmA5XUa+R
gcy2+iqH+314yHq3Oxk8ZTLHxXH9LQcrcizJ4ND/7G9h5BC7/rI0FTIY8AYY
w3w0/05+slBeSYatb1aYdCF/PdVXkjBNAsOj4acbka969vCiy0jQMBRvy0Im
enUfEiWTQCeyVzUfedyn6214KglEFIZCMpEvBXZwA6+SQDoohxSNfO52K9N1
IwnuVgkzjiFnRLUYtYiToNhCxtwYufvBB4b9ZD7Y7F2tq43s+qiJblGSD96m
ylISyClPGve+JeZD00XFzzPzo0ZtqQ0F+5PzQejanHwPsmN2HUX3Sj4k6IfJ
05ATcmr135zOh4suwh3pyPWE9ySNI/mw0LW2OhrZllZN3KCcD7qs8KWnkH8r
K38jxiPClFRT3ujcqNHdqrKdNwlEIB7mkqqRebWlOfwkIhjk6sQRkA+2Fr+c
uEyEvit2ub7IQZd1CRPniFB2adMGN+T/AF3D17o=
     "]], LineBox[CompressedData["
1:eJxF0gk0VXkcB3A0lhRNpohIjyxl5jElUfgpFQotispakyXZRggTSaWURCRR
ioSpIeLh7atdhWRL5Akv5KEesjxz/5pj3jn3vPM5939+v+/93os75X/YXUxE
RISEXehfoNAbO+5VAvX+ONVTs3worHhC6g0ogcD9HSL+mI/lhdqdiCmBRO+Y
2ATMeb5qVy2KSuCvh8Xf3mC2mArm4SQJoFjf6blzjg8jHfsupSoTQC0/0sAR
cwpVVWnFZgKoMyLlgjD3R9fsn3UiQOvzgdVPMMe7Z3wKDCSAbsRGWyJmA8tz
EZ+vEcDg/CXCa8wxMiovWl4SgFjSoTuJGT86ZmFTTQDocD4kLeRDS1PlR/YH
AtxTFqErY9ZMDZArkioFrfQ3qYC5Uo0TfNOlFBzj2aMRmP3E78uKBZXC0peG
qnGY5Xm+uaGxpfDA6Uj1fcwe+Qrt7iWlcH9u4GExZtmE4T87a0rBlp/1lo65
NJApbdddCtovbqXUYZYwPGtsJl0GuS15zT2YC5TM3pWqlsFTcpPDMGb7uVV+
v20tg6jdaqETmHNYtEdKbmVgPHw3Y+k8H/bYyC0REMrAZMj+ow7m+JNLx77X
lIHYm8NaWzC3BYt0Cz+UQQ3NHb8ds3fGCElKohz+dI6+aoG5+GVfnoxSOZw7
TWi3wTxb2Zkihy+H2XN2E3ZoHr82UNm+HCZt3RJcMbcuYbnhvMuhPdt3pTvm
9WuItpqR5VBluOGUN5pnlrtJL6ccumPXhwWh/YmXueYT5fDPjFVeDGZcTniD
pTQRJj6INt1AeUh/0mzWEWG54qbWeLSf65rmsJcIZB4nNAU936T9dacTRJia
TVVIQ3mW2Yac9CPCMa3MlIdonr7x4bMpROjFZRplo3mWW8wCnhHhmvhz11zM
JU6b8ME0IqTVyXg/w7z36hrpi/1ESF6VqVuIzrd8Y94xIMGcZ2IKCeUfHHpx
bx8JJIy2TFFQHiH34QMXEvg0D+6mo/1ajWE5MSTgt53LYqM+dlR7Pk8jwTQ/
s6QC9XGQfrSwgASiaY9KqtC80PzfSS0kMNW+HFWH5sVlq9IHSTBulWrzCuXJ
TJfhCEmwte299BvUV03s51eaZHj76+pjTei8kkdmTwgZ9ANd97ehPnSdb/ff
IEP4FqW8dpTH/EjEUAYZKLiuqQ7Uh8+u44JKMlgZqYV+QM8XZWQx3UGGne1n
crtQH8l6W+dHyFDaaFXfjfZT161cqkCBut9Npnow325cPS+jQwG/lcJ5LsrT
t/yLHFDgnv9LYS+aJztTrexJgcQmPW4fOu/aGqVXRoG41nirz5hjho2hv54C
vGN3cIOYI8Oy5tK5FPjp7O0xZL8k33BJWSqsLcsOH8bssf6tIVWdCqp6Nvpf
MLvkG04GGlFhcnjFALJt1ZKgrtNUkNfiGfJR3iNnNieHU8E2I6wN2bTn9ahV
AhXehKsEjmLGz9z3JZCpUNvwV/IYZlldPc84ORoYfjZJ/4pZgnJXY5c2DSbx
Kiu/YRZazvROmtDAwys9GnnkVKXbH2dowGEqHhdg7ufrqCpepMHcPS8acteF
xA+vk2lgPPRVdQLz6xSnE9sZNPjOtWlDrlRnrRl9RwMlvJvuJGZaoVbr0yEa
uDoZXEYuqB23W6lABxebPNwUen/C6zY8XzqM7yIZf0f93RxZlnGZDjoTyyKQ
I9ccqbW7T4eQ0e8kZL/NqhZ0Dh2qa37Sm0b90a+IB3fQweCBtSeyi/Uge9Mo
HY7/E/MAWav4xPo6GQYc+bJOdAbzk7Bb80/XMCBAKksPWdWM0RWlzgA385Mu
yAqvNB4aGDEg/1FLCbLkwKhi1mkGTM1YH5jFfDlf/fsFfwbo1boHIs+fs29z
CGeATr1eMvKkCCVFJoEBGxJkm5HPVY0E89IYIMkyHEfm38IdZT9lgOjPu1fM
YR5QuvZLGJkBOBPtvch/9BDH7Sqx+ztXuyF35w434hsZ0Fm0LAy5Vf9wwqd+
BtRrGeUhV9mqyByUY0LthuhZ5FX4HvlAZSboR3rJCjG7yTxdn6zJhA7iC1Xk
6bpf9du2MyGMEWKGvPf5qMn0biZkSYgeRE66UWKhfIAJzdqirsi/Whk7uv3B
hAiJkL+QQ7VF3KN9mXD+/dfryBWSHL/s80xwY32/i+xSuT+ad5MJh6wKCpAT
zB3/DihhQoOI5nvkTjXV4js0JhibHupD3ijWSympZkKpvBofmcXwbpjqZILO
MqboPOYVj/EdSgPYvrV3pZGdLo73Go8xwadI6RdkgUn4ZJQ4C24Z71FH3qVi
KvpkBQvUnfmbkONnRZdVKLKg2vHoZmRtcuy6pXgWzB1xMUM+YXh/T6I9C0wD
Mo8j5yg4Hyh2Y0GNg5cr8teJ9cffebNg9NPMaeQ4Qp6P4kUWaIgl+CO3J/uE
7Ihlgd63pCBkzSC9KOckFnAPng1Dpm8uT8rMZcEL37Ro5OVyFx6yi1iQoyKI
QT42Brl9ZBa8W7PxJvL4iyrSxgYWbNujloS84bfWnqIpFuBNL2QiByxPH3or
xgbFM5xsZOqQi0CwnA1JnvxcZPtn/VLbcWw40DuWj5wV+0zOSYcN6dZ1hch8
Lz/lyK1s+HbyZjHyda0JXZYVG+Jk2OXIzRIko092bPhqa0xGxvVHmEu4sEEz
6REVmZQt7rAvkA2rdLRYyF9wqyOb0thw1tG2Fjm6+Tf3wgI26N/sf4Usf22v
dTyLDRq4nY3Iz4xct/i0sEFgfKoZ2XT4vNK+QTbkl9m0IjdlJIhqC9ngrC3Z
gexx6G+euBwHEniJnci3SztKmUYcuJel1YNcvnb51YiTHPAK0+hD/hhlYmcU
ywHSqkc8ZKl+P5ygkAMaiU+HkH/f/5hf2MYBj2aLkYW8q5fEaWtXwCVu4jjy
22537cfnK2CrepNgof9n1RyFqgoQfrGcQg4O0jl5W74S9CW1phe+F+2M9nD/
KhgMMRUit3b+fNijuhoSRLHXj1n5eY7yNulasF/RvGC3MOMBSes6yHg5tuA7
TcTyvrx6uMKeWTBbZ9sNtvhrqKYJFyz1qDU/Zv8b4KbOL1hzKYWXbdkAvK4f
zuL+onCU1wBqgh9WoZzdI369EXxmf1jWcdvkjq1NMCL8YZFpsb8DuU1QMP/D
sxoflyhfeQvc/zx5iOpSodEMU//5jLmsiaC5GUQWfqPwXt91rcaVd4vWrNyW
oq7XsugAh59XqnX+b8XkT8d+UmlbdIHj49yvoe2LdjC5aFlN7Vh0kYuv2vbZ
94uekjZfQjz6YdGHG3cYqKR2LdpMamOCrHX3ovEgPzg//7//BaHRZKk=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.9996},
  PlotRange->{{-0.5, 0.5}, {0.9995585067767876, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5185781042363987`*^9, 3.5185781500823216`*^9, 
  3.5185782145750575`*^9}],

Cell[BoxData["1.999999999994457`"], "Output",
 CellChangeTimes->{3.5185781042363987`*^9, 3.5185781500823216`*^9, 
  3.5185782152360077`*^9}],

Cell[BoxData["2.7714497363717783`*^-12"], "Output",
 CellChangeTimes->{3.5185781042363987`*^9, 3.5185781500823216`*^9, 
  3.51857821528608*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{".0154", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"msetest", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "%"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y", ",", "msetest"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Condexp", "[", 
     RowBox[{"y", ",", "msetest"}], "]"}], "^", "2"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", ".5"}], ",", ".5"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"var", "[", "msetest", "]"}], "\n", 
 RowBox[{"1", "-", 
  RowBox[{"%", "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.5185780961547775`*^9, 3.5185780963750944`*^9}, {
   3.518578278567074*^9, 3.5185782828031645`*^9}, 3.518578323892248*^9, {
   3.518597062648303*^9, 3.518597063165739*^9}, {3.519084834796875*^9, 
   3.519084841671875*^9}}],

Cell[BoxData["0.0154`"], "Output",
 CellChangeTimes->{3.518578324963789*^9, 3.518597065682506*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlnc4l/8Xxj9WsirZo5KiZFVkfp7nnVKSQomQCGnI3t/skpmRiqLMqCgV
kiLnUVT2CBkNhEoS4bPHz++vc93XdZ/Xdd/nr7PRzfeoBy+JRLrGQyL9f7o/
yfjL5QoS0zEeso7cvbqSTHlVY5Yg4eYuWXf/tLlu0/4SpxCaIGHiVuTqtd5a
V/Xry5aZOUFi0abdwYrioDst+r14aEyQiJNNBN02P10/z132VW8FCcMTMcLc
rlzdKJVh4kyCIBHVFFppfOCfbk7upsyOVYLEbs5nQYOnObvyvyX6HhFaQdRp
RAa2+lH0pLttrNSkBIjJQH1h1VMqBh+sbUzbVPiJFCnxZ4wqQ8MDaipBm5T5
CH12rNK5PVZGRhVOpV3avARGI27mPjQyZiSfkdipxkOc0KF/ENDZRK6I823e
psJDzFT+zA8wUCW7RYWFbtrIQ/xOD3w581yN3OqfPCIpx0PcEzmeUrJzBznH
vqKYupKHOLTjaMTLJzjZUJWi8/onieDm7tdr22hPDmu8cuzAAxJxTTz5pqn/
VbJGXdoKk3skYnGtdN97mwzyaHV2rWEBiehIepOS8TqTfODBQ0X1WyTi3soJ
2fbyW2SZ9I4JsUQSoVRhe/2kdQm5NXEga0UcifjOGOz6eOEBOerStwPcaBJx
17ySGkQvJ08Fzz+aCyURpHkpF5pdJTnHl+H8K5BE1CcLrRLkVJMtz/OJj/uS
iPSJ8UONArXkGiep4I9nScTE2bIQI18gr7feMtTkQiLCDL4otqY0keP3GmI1
x0lEMY+h2lBfK9kI2/O3woZEHLA6F5ZU2kme1bMovG9FIg4rRZhci+khF20/
ZlNgQSLcVJ5VNjA/ku22nRS4bUYiDr5aMx7dNUAW3nzmxbW9JMJRR1CXLjhM
bljnez4ZkYi9XaoZ85VfyAEyYQqXjUkET+bZAf65UbKqeGxHuD6JSFmluSfS
+jt5WDg5OkiHRNi7aM3+4Z8ip/Ff3+GtTSL8THf8eyn7i7yHk/vdQ51ELLXO
JX64NUNeot676byFRKhiQ6Mj5nNkx8QX2Xc2kQjP+Zeh4P6PTMi23h7eQCJ8
vCWVPjcuklUffs6VVSQRpkbl5EovKvmq4d+7drIkIiGvwrPdm0H+18JTcEOS
RBTk9ft/62KTjztKFvWuIRFlnQ8ZIV0krH5a9d4aMRJB9pfYZrDIiymHG5Za
CpGIBtLH28RJASxR5NCDqwIkQosTnpcguRKbzXUua+UhERs2Pj8qrCyC3bcf
txdncSHynenN6YxVWMB/gidTF7lAXfDsStQTx/AcDVehP1zo3Txi8dtVAhOq
O+JxZZILbzc96pbslcL6RkLO83zlQnqi1LRruixWwMr1jhzgwvtTe05pFStg
Xusa/emdXGhKuLxyQWYDpo9PBQe/50LF9YzoqoiNGK+LyMV54MKtyWLbo2Wb
sM7o7VHetVzIHcyKUFNUxXIKbC/9esqFZv4theeHt2IejRfjPR5yofaxha7R
rDq2fTw/eayQCwt5EyP9rtoYi7c57WQOF8LnBUVtC3ZgHzZNZw5lcqF+TYPx
6zYd7Lrp6mzbFC6Yl7p822ukhzl76Ob2XOZCneqL2i8LBti2eIf8wxFcmPZ+
o+DFQ8aWSqOKW4K4sOaF08dPXggj3hff3+fNhUM039jsAhPs6s8P5Y0eXEAm
g+ruzXux40KzTzBnLhz+prtQob4fU94mUf3SjguTDldEVUYOYLMHDWp3WXEh
kCWZbv3ZAnt54WT9MzMuyK+/WFZjYIXFXb1EaO7mwr3NZVb/RR7BrB/fb3po
wIUneze6e2bbYAqd7R9UdnDB/+mOiDdzttjU7Hx7oRoXBHIfOvZl2GOVq2V6
1ikv9ylaXfMu+gQWtZ3cf1ueC90tV8vL3zlj5kdch6QkuKAxH+XQoe+KSQbE
f7kmwgVude6TqT3u2Ghm+ZgYPxc4c1jOt2QP7FFV92QSiwMP9SYDH0ifw0L7
ln4JLHFg0U/oGfWPJ7ZnSX429g8H+vjag13kfLBV0rv/sSc5IKQRXrezxw8b
1vOg/PeVAwLl8c86WwKwkuPJjKUBDkhOaYm4s4Iwv7AnHP+uZX28Yz7INxQj
3+7jnX3PgZkp0kaTbRcxwVf0FZ4EB7R+rLjbpRuJ9Q6vF5mq5UC6d0k9/6EY
LI+5d7XbMw6suxYe8FPrEnZe8bzE14cc0Oi2/px6IA7TxdJkHIs4sMeBx31l
fjxGcq5SGMjhAEvlsqykYRLWFjW44eh1Dhj9MsnYsv4qlpXP3tSZwgFSq1la
gl065kYobz0Yx4FiYS3niuBrmOaYmca7CA5QuzzbPQKvYzQe7+17gjlQXTh3
QbDsJtaknKnb4M2Bs8N1Rq0bbmGWA6nT2R4c8B0bVRGUz8UGk5IK/E9y4Eps
lt5xvzzMDbtiZ2HLgVYXkcZ26UJsZi5GVOUwB1oczv2maBVjIfci3nBMOeA8
OOrilVCCkezDwgbJHIj5jOqeb3mAJYsEaVXqcuCO+WEZA9lyTAJ8J1I0OPAt
ZCH7sFsFdifgQo7HZg5oOx213r7yGaaqetYaKXIAjCtZ/DJV2NMhtxVykhyQ
7xeWkzv9HDNKda7/J8IBF+qRw7mUF1jTbseAdr7l/a3lMkkDrzDLRdutpUw2
xCdJ+zeLNmCD9498jV5gQ2Hrtj+3egjM7cThGw6/2VAZZ7zSo/cNNrPK/KDO
dzZojpw+PraqGQt5Y0oSG2ED3z7fK/2p7zFSyO6aqV42nCw8b9Vi14olq5G9
iFY29PPoassFdGCSX/SVc96woadHMTs+qBvLy9AZDHzFhuQBUVG6Wy+21VQ7
7XAlG8bzd5XIJ/dhz6jbTLeUscFTzKnSZG4AMypXZZCK2CB6WVk8+M4Q1uSs
/HT4NhsG07d9isr6jFmuXX+m+hobLHUeTpJ+fMMGm+UU05LYUGbr09bcNoa5
/SfVezaWDZvf6J88MfQdm9EQTzT5jw37rvukrleewkJGRXEFfzZQPlV7pD76
iZFurFxcPLfM71m351P0byzZjL+s89TyPbztNP4Wz2KSTK7LA3s2rMQbV3Sv
mcfyKphSl6zZoNK0KeAIzwK21Y3aduIAGwI3nLg1snUJq5RaiN21mw0WiZpT
zqlUjNwyq7/agA06qt90L+xiYO8ipv/81F7u/0+Ag7ayMavtU8VvtrDhoqGr
xF89Ej74fczhzgY2EOkBTamCvLhb9pfVITJsuHSYb+dnYX585uBQs9VqNnSq
7Aww3r8CD+H0hasJsiGCXRuWs5ySVNm9g4/LAsxsHxYXKYIne7T/+Exhwf7g
S7h2wipcUu7D3ZpZFuSUi5mY/VuD57W/tcmYYsFtg/PyO7vW4ltjQMjzKwsK
JYJXqn+TxCt16mDvAAt6jxsMx26Rwck/aoLXdbIgY49N8uoKObw5p1Kd2swC
L4GP+Xv/U8QtLSvGul+z4N2Gke6dGRvwQZ6y7LLnLHDrl7hkE7kRd3tecjju
MQuWXILP3Tq1CZ85V8jnXMKCA//uWN0NUcFDFO++1L/LAtUsqfdpTVtwUvct
X/GbLDjntLhJ0Xobnnz5hsrvqywwjqymXt6giUvqZ4w0xbEg+UtLf7fidjxv
OuVaXgQLvkWJanJ6d+Bb8xLMwoJYUFllHnuhRgevPHKZfcSLBfffHpcvbNuF
GwtEV6mfZoH0CpeybBkDfOtUqlCGEwuKPNQvPQ8wwqXf33FZPMYCcsx6l02C
GM73oPy5/WEWJPJELG4dRvhc4iuR1/tY0Bd/R+NtmAn+9XyL60acBcL9B7RA
bS/ednDwxRU9FpgobRn249uH16r/EJvWYkF60c/kVCEzvFSU4m65hQVnMRXV
9bvN8Rt/+F9VbmDBtdIJ7fhyCzy2U2KNjCwLdvzT9E+xtsR9niifCV/Dgs13
I9dr51jjThk76r+tZIHY8Jj2Ea2j+EH/3WtNeVig1GrvXv/DBtc/anXuAZ0J
Vl37KE0ttvhmHecG0X9MuJ1Wkbpy8Di+VtJb0n+aCW/zIs2DpB1x0lK4Z/84
E1Y0Dhy1SHLC//QnE4YjTFAqqp/V3OWCD9fcls77yATej6HpGatd8Q/ZD7x4
25mw81eXt0WpG/487MWbM03LfrGSsDrX03iRwzvZtnomVM/4m0nuO4NHKkw0
XX/MhMhU5qFH1zxxT9Y/eVoJE2iuz6Mbeb1x+y88/k55THihMfkxtNwX39ew
5j2RxQTJ2shQiwP++M78DetU0png9nKivWQkAFeK0QpMSmDCmZT3o9mZQbiY
K9byJ5oJp4SfJqn5heA/lU8E1/gt833mfFIfXcQH+Dzb5M8zAb/3W6FxbST+
diJsY7QrEz5Rem3cKqLxp80Jod8dmCC8SpOzZBKL55VmdZgdZYLJVuZ9+fZL
eEpCyaZHB5ngmFwTTg6Lw8POVf+3Zi8TVpaybbTM43Gbbb0qQzpMkEIrfs97
JOO7RcbCMQ0mNOdz9+TWXsW1Zv72FG5mgraYRGoHlo4rdHC2rFjHhOvmmFs/
KwNfWSEW5SnFBIeYzAmbsEyckqbY1ym2nN/tvVmLxA38u6/6Np0VTOgr0TzV
3nMTb9hhPsCkMGDtpc/vR4jb+KO19hqn/jKAd828miotF7+9cOZS0w8GuK99
3XbJOQ+P7wse3DrKgJ6LLeJD4QV40PM4rdRBBpxw95v++r0Qd826HjffzYA/
Zt/ZUeeLccvQomHbFgbEP4rzXL26BFczJOLXv2LAxgk1b7zpAS4t3/X5UiUD
Gn9cex86VIbzM7/s/FHGgKinbkpf5R7j8yMziRbFDCCVrbnYlvgE/1rP/Pok
lwE/3916NCP5DG+/K7xL8gYDct98yQ2IqcRfRsmlhF1lQE57SqGwUDV+Y7e+
vkkkAwb/UE5euvgC53v390tbMAOkC0tf73Z+iQdYPIiz82GAdki/2YWzdfh4
9yn1sTPLfQL9Rd/feo0fsZPrveDCALKhIr/FEuDESE8Y5TgDPGr2PRXf3Yhv
d03eEGvNAKvjLxMd897gq7yYXlkmDEj+Zbdv8lEzHjlfJbHRiAFvvc7Zq7u+
x2dCvF6V72QAZQPe4qjXgjuxNrvqqTNAPTPHplerDW+L/SLYuIkBRhuvb5Q/
3IEbCWZVWCgyoMRMJmjqehdedtXSdkCSATZ5DEMxvh48MRuKfgswQPbOK6fC
+o84VTHMPIRDB5Pa/a2xu/vxM0Xb50hUOmxDs5JTowP4wJZfWSl/6eAdHX2g
I38Q3/e4EJP+SYe04h8m9tHDePVOx4mCUTrcNZR+3xb7Gd9cuzZFfYgOpbG+
rzMffsV5314e3N1KB5vUj49aXo7h/gfI0W1v6CDteDutTuw7PtqxqGJXR4cy
JLzEd3ECt7Z53D5aRQenlbZJB0lTOAx6BF54RAdZl1Hpo0U/cC3n9fKUe3QY
8XFTY7j+wvO+DxAxd+lwNCSpcbfJbzxi1mxVVhodxJIEnpme/Yv/DiQ9V0qg
Q+/PPdE2Q3O4I732RHk0HZhpj35flPiHt0b58+qF0cFwfyMKcF/ADfm3PST8
6OChzXP5Qesi/iBp3MriPB3O2O5xKj5IwWVX51L6XelwMaz3BGmSilPkRE1/
H6WDaafmxwFfJu6R3zQdbEGHI1yFpNWn2Xjf5shrJNPl+8nILqpf5OKmZbsM
Ush0+GMXH6k+TEJV2rNfpXbRobbKwM5HmBcpPy+9UqBJhwDfIyulrfhQppGL
hroqHdJZt5K8HvIjv33d/+2WoUNyoZDc03uC6FtrolLbajq4pOxMzzoghCyt
Td7brqRDyKT6lNJKEdTQT/ceJdHhwlpVO4FJUaR5olLyAp0Gp6fXHZUYW4Xu
jHrWLc3TwGH2nrd89BokemaTW8w0DT5Mbfmnny+Opv1uPLk5QoPUFjUXX1lJ
5EA5ZKfUR4OxFawPI4FS6EO4ALusnQZiQn03wielkT5PQ/GuZhp0qVepFfvI
otL4kIPEaxrIH7P58HKNPJIS1Z4/WEMDqRp2hFGHAoq79iO7v4IGtnpzCs9L
1iH3O/aT0/k0mNI/1lQ0qIQyqn9gH7NpsHAbj/4kqowa2kOy6tKXNftrTY/t
JjQzIfC3OIEGkZr+Ld+qNyN59g2zq9E0UPbOO+2urooOSG0uCAqlwZ7BNVd6
X21BwZpVNCdfGvRZHYqtPa2Guk/2PNR0ocHwVd+6hFWaiBN8ilf6OA0uF+b5
sMS1kUbaX0eOJQ0Cxj0fxuRuR46lUVVT+2lQazT0vRN2oIQGMdEunAYjenMT
DMpOVD1w5/QLPRow43vLVfboovFZ9df5WjSwzPg5H120C+EbDvr4raeBrmK8
+NB9A+SlP/TOXnrZr2j1N83KCOVYndtgsooGNxROsb+Lk9GHs9RQtRU0aEh/
FOM+h6Gl6PhucQ4VjjrVBT6eQUj5lpQaY4kKRZlr6435TZD103ux43+oYNzg
8/Od8h70aPTNzqovVHAfO/ij+KYpGqYdScntp4Jd1dAu7u99SFB87PvlDiqc
3W/UKHncDLmZcG8ce02FX2zJIRm/gyjDIe0P+TkVOv5+M45WOoQa/NftV3lM
BYc66dab04eRXJExdenOMt9qf9Orn9Zo/6tWq683qHCcMnYlj3YEBfU6PHh3
lQrlHTxT9rI2qJs3zCE7ggrnAy9Mvki2RRx5wcroICqQVCYPqn2zQ+o6WcLn
vKggrvy6VMTMHsW7V9cZOFGBNSuyWs/2BKoO3yu58RgVtIQD9UrYTmj8eq+X
0CEqjLsnXuh77Yywprl1w8ZUgIwtTar7XJHn5+iQNzpUuFSyOfz6ITd0a3FV
V5k6FULMO4z83NzR4mbNmHAFKnw6ZM9yqPdAylj9oLsEFWQWFJ5M85xF1rYW
Ow6JUIGCNh9dsD+Hyq+cH1dkUqA0XaulC7+ABu/SjAQWKJAnQcu+0OWFVtQk
XP8zTYFuxZqR1cE+yG2qxLRhmAI+KSbz1Tz+KIOje7e0lwJ7N2p7y1P90Wvp
pqW0VgrwbegtlqMHIFmz8VKXVxSoys+h66oEo/0u/lyzSgo4nn4lkGAdgoJC
Sfbbyygg+/nl4tfkUNR1f70QTw4FHmrzJR7WvohO/SF4gjIpkFb53f53bDj6
t9OdMZVMgSMzOvq8ExFIsuH+7/ZwCmBVGr9kh6JRCd/BCRREAc70uUOVNTFI
z3zmc6UXBdzKpotGk2KRfd/2zlsnKfDMrv44cegy+iX38Z2IHQVuBZ+M1cTi
0EWXYIiypIDcq8AReYMr6O70y6enEQUCm1JBzCoBjZP2Xt++kQJr4ix0Notd
RYH7J1OK5Shw200z2vJkKuK/mhAnvZYCx0/VfgmrS0NbZNqDWbwUyG86mTjZ
k4FqnXx8fJlLMMd7hBmRfQ0dLFpzdnxhCWRuP8xU8MhEXpq29h8mlqCjwd4o
Ue4GYgdQrY2/LEFbK1/ND9JNlFZ727yifwnqX9N0/Odvomd7vxrdeLfsHwl8
YvA3G1Eczq479WAJ6rjeHhFn7qCEfCHpjwVLIGHy31begrtIdrJ81f7by7qE
ULGczEPGfnNc9eQl4LPo6T7WWoDan2fS8i4tgdKhGZG66ELkzNSdFw9fApHa
NodG4yIUE//fOPXCErBVG9YGfyhG4u0KI56nl0BaxVwt8fY9VCTe8PGL0xIM
AH/JioAS1HyHt/nt4SUwVifVyBvdR8JVKffTtZdAq+bn5QKNcpRL0yzg3boE
k6o5n4TQI6SBd98KVlqCh8nT9+86PkZWLZLJJ8SX+e6TX3ZWPEGjq15c6hRa
fkRUXK7YBT5FAcccwk14l6A2WTunUPIZuvHtrteWhUV4VJDP/nKmEqmo7PbI
+b0ILo+jlFbJVqEaz/GTYhOLoNWJxlo6q9DQkqrVQt8i1D3h3jl9+DlaL/p0
B9QsgmtmeUR1Zi3ymdj6Ob1iEfRz58u48S9RQ31h/KnSRaB2qM3yX36FTnpf
H+HJWoRqmkLoVGY9utMZcsU0eBGmXoc2WacQaKb0r7aU9yKQ3qqaPlJtRMbR
54YnTy+CmYxqytV3jWhY21E74dhyngDfQ5qSb5HcNWyoRWcRmDN8iUq/mtG5
8zWXc9QXoXHxpmRf2TtUa6KtdWHTIjRnTd996P8e2f9TuiwqsQhVMm9meVe3
oCwbfk2rfwtAyldwtExuR1PqkZ82TC9AzR/YthjSgfT4KbFzYwsQ3c06gc53
ov7qHwPXehaAp79WMkq7G0lKt8X0PV2AJIpo3fYDvej07F71kgcLcL64x6Op
vxdVv6vvDy5YAEWjKw12Zz4im9CKbTIZC1CVnsJ7JaMPZQ5e63PwXYC+0N9u
5kKf0PhT4ehtZxdg+2aWtcyTT2hH0mU1pvMChCyu/DV3fBB1GwZH3bFcgCNT
wmfeVA4hrd53NwFbAGex0v7ybSPof5T0/V8=
     "]], LineBox[CompressedData["
1:eJw1mnc00P/3x2WVmVWJ7IxkhUK8XxelkJUyE0WUUUZmKCF7RIgoFFLISraX
vffee6YkUUrx/fz++P3zvH/c57l/3XvOfZzz5DG317UkJSEhyf1P/q9auizR
jfivYFO6jIEs4THgJXYvNzxewb8+nLGRpxyDbkZCJMFpBVNVytwoMB2Fh4ue
lHctVrBAxpMb1aUjMBr5u4xFZQUfT8j0f+82DM9mN/luHVjBRxil5MaYBkG5
WGpX5vcy3q4XJJP0GYD1UKdhms/L+Kb6ejj/ej9onF4PK2xbxj3DpVcnhvqA
PGh1izRyGTtwnkrWbeyBAhPh7sFHy7j74iE7PdUeuHHK+v17h2U8+cBre6q9
GypGF011dZcx3Ycrbj/LusBFdLYp9dAy9tBa7faXbYfjpDyvXSiXseYpTLJj
0Qa9g2Zear+W8Bv9+gHRmFYQ85mQ+D68hIfUmN/GkbbAYu9wgmLSEm4fS/He
OdQIMW+POLOEL2FW86vvpi0bQNlLX2vZewmL/jx0l7msHl7x95M+NVvCnN/0
HY/b14GBe5ftFO8Svn3stJ08dQ1QatJfKGRewjMHac4NPqiGjzya3IHkS1jW
jUfv4SQGhrbWfrHFRZx56HCcY2MlNHM0Eg/fLWKqkWc2a6ul4LpBzqr7YhGj
OhkPU8pSON50boM/dBFbjcYumQqWgI9DTUaH3SK+nPNlM8TrE4ipkDxOvb6I
ncM4xu/nFcH4UbjmorWIo2jjqm9//giydRUHOSQWsYvSXOEX+0JYfL6zss69
iE9E6xkplBdAjN3Z+nrGRRxIri7NQlsA64dK3O1+LOAWLvMr45V58O5O4Uz5
pwVsFWXxoLQiG/rNk7kuZSzgDuqD67vhWUByPfT6aOwCdpHE7zet34P+ZYuR
becF7J9HTdWomAmPL2kfCbq1gGuqlNfo5d9Ctoq83pGrC/hs7fb7WZQBpGeZ
e05LLeAUg80CRvM0EJXeo2/gXcBP+ho85nzegKHYqsZVpgWcSXHyqGjma/jA
W9fs9H0en39ddon3YCoY09yvzs2dx1ZUr9Jv2yfBEwqzXZQ8j60NA3g+CSRC
3p66QmfEPB7wKOjmWk0Ayk3eki9353FanqpoaMJzOLVG/9Pz+jxOHldx++Qb
BybLf6RoNOdxpUjqCR23WCgY7809ITKP8yr37UePn8HEYNXXEvZ53J01wdEd
Gw0Het6fVKWZx/IkCrYaH6PAtMH3rdXnOZx8taD5Bd1TCMb3FrZG5rCDVtxv
r8gI+FhqzPekZQ67uxw7N8USDtQfJJPfZM7hrigTPXudEDidyTkhGT+HS9iX
OawoguHGa2r22sA57H1BMZ2qJRA+xc3GTVvN4a2C4JtsD57AzNPOfnv9Ocwq
NCbqbOUPtKFlTHsqc5g3lKrmipkfmD+KjuDgn8NPPdzjs5wfQ7jHw/Zsljn8
Nbvl9amnPlBy34ZagXwO072Sysm3ewT0d5QDjOdm8dGb5KOpSl4gZy5Wv9I7
iwv03UySmh/ALRM2Uo/aWRyRVKUfctMDynQ2vJ+nzuL6Q0r8io2usKA+WS4Q
NYtF2imfxj91AQaV1t9FPrM4caBFjcLGGazkXrv0m83ikFNSd/0uOkGUVESh
hfYsXuW3/Gyg7ggVog++b6BZ/FLKO7jRyAGYeHXvMnLOYtsEfW172btAHENZ
KXSzeCkt88vVJFu4c1h4RfzfDBZ0U7URP2QDVdSkllrjM5g2b351U+k2rJCv
vZ5om8FfCrS/MmxaAsveyLRd+Qymergj4Vd8C2x+5JuEvpjBa0+VJsTtzSHh
zHf52yEz+NzrMO5Mq5vQ7CHBfu7BDF50DKRcsL0B/CS5I3+MZnC2Kluh+Nnr
cPXcWsmg2gxGCo83MyOvgW+AaHyB3AyWn8o3btgxgmnabH2bozP4OhWdciSz
AdDrrJ6+QDWDhdMPXhOr1APimfAh3t/TOIq1dk3X4yq8OPqub2R4GlPFyEYF
8+tCi8lyQVHzNJ6X/9w2x3wZtpMFo6NKpvHPwA2WK4w6oCeQoaMWP427yDjK
+uw0wN96QZw/aBrbpmflXSxVh4Ls4wf3uU9jx95UfTFONWCQetNRYjCNp2f4
TXVELgC4zmbHXJzGVfNyLuJ95+FeKU+Yg8w03id6ybEp/By0QYq60JFprPaH
hm3fWSX44zt1gnz/NBZkJp/KP6EIl8MIpuqvU9ilNveqoy6CD0wV3W4dU3h5
cjjE2V4BaBPORornTOE7fhSR7ZlnwZqrVHMpbAqf/+ou//WvLDSmy9Am201h
jbhqMVMbGXhcIB1MLzKF5RdTKHNCpWFStvBiI80Ujh8v19xSkAIFfIry4eok
NrwnSH2TVBISVPLqT7dN4nN5o/KdoxLws03M7+v7ScxMMlB3JUQcrurmKKWH
TOI/FDLRkz6ikD98kuS6zST2iK2v1Xp+EuwWhLzbT0ziCx0twW+PCUGr7Vt5
f6pJfMdQ+J9EkAAIbvD/kV+ZwOyDWsQULT/4u6eV/GiewEcuNxmefccHs7u8
blmZE1jPtKVw8hovKD5JPW0RNIGZD5hTefHxwEsa7k22OxPYTnJ9LfMfFxiy
cjiGCE5g961CwZPD7PDpVaK48v4JvCTE0JP96ygw87Ot/V4cx5seVPtIz7CC
Q1Z8dn7jODY+GLyjEXUYOk8dsbXOGMe3/zL+bt1/CE6WxJ7gCRjHU9tVtb3P
mSEIsSwPW47je8Xepn3ABOcuMVqq8o9jbmn3mJE3ByGlJ5KPhGIch/857vbG
iQ52Dehni+fHsASnH3moFQ1cmwxLsa8fw03LtZsK3lRQcovGTDBtDPdkW28G
fdwPh1eDOab8xvDt/lxsRk0J9x0PjMdZjOHT/xz0erzIQewhhREl3xjOfTP8
Sz9vH7CVdT9fJh/Drvj1TTI/EqD4mTjYujiKrS87+VT17KL1U7cP5TSPYmUj
t3rfmr9o/K7k1cj3o/jmQjsVX98f1PzuX7Rj2CjuMLszEUH+GxUuNPdcuTeK
q6wPCvdf+YVCrptps0qOYtG/KRT55zeRa4JwxB/mUawjE7N/bXYD3RzYah/f
GsF2k1qhGvHfkQZjDQ0eGsGeNvaPrlmsI1nNMPXU0hGsov2W79GTNXQ82CDY
L3EE07OI/rGw+YIYGnibLb1HcJYSc9uu02e0pFCqIqz037x2hhaHxUXU6+7v
T8s3gp1bRZpPaC6gqo/adWvkI3hdpi/JsGsOvV9nI+1ZHMaGO0b3z9rOojiR
RcXC5mFMiIgtCXLNIN87+Y9i3w/jeJHBWYG+KXQ3zavKLWwYm7NfHTkYPYHO
H2NWUNAZxnoXe/Qv+40gCcPJB5ySw1jmMkNAXt4QYo95V0rCMoxPvf5OIrw7
gCi7nbdnt4awT+gN0hTrfrRBoyjTMDSE/xVlNhz+3osmL9K4vi0dwnLW/3wL
ontQi9/gx+DEIcwfaR9UpNGNUnbsJLXMhrD8qFED7f52FCYj6yihNITvy34W
wH9akNt9sjwmviG85eqvdZu5GZnndq5tkg9hYeP8NH+tRqS1miA6tDiIO3Rq
dvC7enRW0NKutHkQuzjaUa7w1iEBC4msxPeD2FSp+MeP4hr0b7RR6Ma9QRyg
/cpd16QKLR+Ovq2sM4jFS8x8K49UoH7d6xnHJQcx3A+WZvxXiqojhBYoWQbx
SPVx6VtUJSi79QffytYAfnGws2xX7hOKp8TmbUMDuKtv5L5B2EfkpxySmlM6
gI/80Qxm2C1AxmXcXE7eA7i97pXT1pk8dOHn6vWrZgOYZbNtXnMzB52SLE46
ozSAb58w6Hj4Lgsdu+c7xso3gMv3jNiFQt6hA+812XbIB7Ca21yG2LO3aHOB
1WhisR9XJLEM5NSkoyme+ee4uR/z9NdSbDKloU8JDw75h/VjkWtZa7+ZU9Hr
AZWrVvf6cWjZVSOHh8konJHxmapOP3YNXQ60PvASuWuO9whL9uOmN4fuctS+
QLeC3zLQsfTjyXayeLrMeKTT4KT9basPT2waJvz5FIcU9qGInqE+PDjxsW5q
NQYxe/TTxCX24WdfrtNHVESh7b3fjN8e9GGh+SU/qTNP0WQAF6uqcR9+SLtP
cSwlHNXRqXCmyvXhZVb746cZQ1FmjM3xP6x92PfN6MEXJUEogv2p8JXtXvx9
9uajp9EB6P7rIonsoV6cGuHdvP3CHxmeGDtDUdyLjfrjrlJ2+iKUR0KYxvXi
jM0TRnJCj9FxGYFzxS69WDL81/4CjUeIquqSGoNeL2b9PC8wHuKF1s47altL
9+KXsRffelI8QP1tcXq1zL34l9OljZBiN1SqW3GN/UcPnphWyrBNckGvRmZu
Ovf2YLETfC8nc+8j/xv773Tk9+A/kwdD/n51RNZLIvcEonrwLsdpPvErDkjr
nq7zI4ceLGV2NUmv5C6S3nJ7MKzdg/N86EJ7aGzRUa+XPqfEe/DgEU7Tc4l3
0C5pXUAIfQ/+8KZLOuqmFZoPXg6b+9qNbY6/qqE1voVaGOifKXR04wyKgkob
H3P04blUQmx2N1ap0CMr776BYjiNktdCu3H4w4cBtRGm6EH6w/SLtt34l19x
9LHaa8hMJC0rRb0bz3CcCL9/2gidL2zJ/32iG1/qeHhSbk4fCZ/9VqxL1Y2L
xGUX9BuvIk7fE14GPV34b3mL9PFRXbQS6RxE9bQLM2lzJ11nu4w+vsQx5Vpd
eNCwoVyWUhs9zKJOvUvXhR8u5ZS/5NFAaqV6OVztnfibZJyMhY8aYmlKKe0J
6cTINPJB1LGLaLJ/tcFPrRNHlRud+bh+Hr2bPdN7+kAn9n91IbrrlzJyXn88
udTYgZ0T6dj1RZUQ2m3/nPCkA88ffUgObICoaFl/XTrfgemTA89WCyig/qMW
ZLukHRiLMgsre8ihZMEPB/Nq2rE3y0lHJxoZZHP6N7u5TzvWzHzQFjYkjaTP
nRdigXYsku6yrTUsifZ0IqUb/7XhxwnmKV8PnEKtpqOK7hVtmCLnjCpLqxiK
sePXFPZsw8ETZcG6PSeR2QMHo3G5NnzSf4pfj/sEEg4qt4zYbsWTHy0FHucJ
oK1YSifF4lasZ9l/tM/zOKp+c/nhhksrvsBlMt/jxYtC8pNC0qRbcepXshzf
D9xIDy/F6f9owVWZjCnlrJyIu0PyzYGCFuymf8k3+Dg7+jzqnVvm0IKPUF+M
+e7OioqWm8vtxFuwdM5ZQf6Dh5HPT+ZmzrVmLHT4ZefmNDO6RG7W353djFce
nJSrXWZEh5neT/vaNuOCV0eV7/MwoBmurS/Sws049dOUYjstHcoWVfy9uNyE
r5Zel+sQoEZu8qEUCW+b8Ogbj7uqwfuRstog4yWrJry33KatK0qBaA14OP8d
b8J+L8pM0mjJ0NAtO+HcuUacdt2YN4JnH6qa0JH5lNGIB79uWZdR7BEZ+qfP
V1o3Ylr2+XDBQ3+J8K6jl+tFGnETefniPZvfhLPq7vW2bw34nUDaMbm9n8S1
mlmb3oIGHMC8UVrVsUkon21yG3FpwDhjp7K8e4M4UZjlPy3bgI9YkcvfIvtO
MIg8jVraqcdNk996C2vXiF9pzq/WqurxsahFWZWOVWKSwyhr63E9/lWoRw1c
K0RDHFHy93w9LnY2v0NdsEhkH+RtIDtQj//2/IrKfDRPPAui7KVuq8N0tn6+
6b6zxIN9q5OMEXU4LXGliObTNGH+oGuV9XIdhiOZG/nCk4Taj8JtLpY6HKa2
eGtZdoyQsIunEByqxf9qJRlVI4cJ1gUvJrEXtfjVlF8preAgsXf9Jtfp67X4
79zZXYY/fcTioIqIAnctLtS9eryatJfo0BaWOzdXg0926B2lUugmPjbTX1DP
qME+Zgel05U7iESlH7qXrWsw6nzYOG3SSviWDZkZitRglgqmbEncRFhLVdiZ
favGtIZ1mxXmDYROdoqHVUE1nlFveaGiVEfI8D8JuOtSjfm2vkYL6tUQnK+s
nznLVmOKN7Y3QyQxQS2WpPjrJ8afZ3cf/2KsIIa5LI0pvDFWidb1kVAsJTIY
xZyZyTBu/3pC4EXRJ8KF7Fc4T3AVlmxeMrxs+5E4v4Xfih+swtdvWzKzXSsg
mJaCaojYSnx5VHpF+1EeMT18eewSeyXOlLCdyU3PIT60sm0ZpVbgAzoflgVf
vye8Kubo7whWYNUomaSc1beE+odsIdeccnzQvC+98EE6wZriouwvVY5v0ZPa
Wqm+IRajkEl0aRne2KWMe6GVSnz02++aAmV4WDj6/oODyYSvS3fkh4ZS7LZp
NRQykUjo3E54V3GpFNNSblto7cYTXEbmda09JTjospp2pHUcsaZ+cmLYoAR3
LXk6zx+JISoUNn8uThRjEsX2rpek0USIWCXDlkUxNo173F7A95Qw5A4QJvv8
Cc9SNjnfWg0jBJi0zzM6fMJ/+tmDbi8FE5tkrKZcP4vw89bBJ7GSgUTt1rSb
qFcRnkjxT92s9yeilt5FyZMW4YsDxI+rz32JGyNOWWpBH/HLH5RLCm98CLE2
+QYD+o84rjOHPrfBm/hbQT5lGVOIU1udvzanPiBaP3Rs32crxG5X6GZ0e9yI
+JQ4Jt+UAuyTZGrYesmFsIo2E3kqUIC7JVTIA6nuE9L+QhdeZedj0SChO+lk
jgSZ63ezbMl8nDDuubV4+x7Rc7vMo6wkD6fpxKtXnbAlko38njWjPPxrf+Zy
u/IdYjQu3jgnOBcv2l9NZXpvSbg9EI5oif2A/apzZTwMLAittfXB3IwcPGoV
Iv9K8yYhYF7MFVecjTt9aM/Qb5oSuwPed7yaszBDfVON3odrxIDa+XzzkfdY
LPoEcFYbEtmV1H9UP7/DrR3V4/e59Qn/Uz3K4juZ2KTA2l+96Qphkv489BBt
JlbPqCW9nXOZkDpq2r9z7C22ekzfGxOvTVCHH+eYFc3AQgenFpGCBjFLsmrZ
jNKxhOmDgCvyakSZc/6HD9ppWOOrg8/dsAtE1LLbr5gbbzBPOesPLsHzxB0T
pOjp+BrrTj+qmyBTJhS7yYNv+qbiwc/7QubYFQnW8209F5+l4OvGdx0u9ioQ
k/Z8p01Uk/GrwetPrNvliHCDvEYhm5fYdvOagu8xGUIBCMOt0ERMGZPR8r1U
mlgVaF2pyUnAR9R2f1G9lCRe0Bt4RnQ9x6YL1uK/qiQItZ9ztNe+x+L9Jk7f
DKTEiO0Jh1eCzDFYV0jX66X2SeJtwz/xTeloHBhCGFxpESL0c0JqqvWfYv3P
pJWy8QIEtbB4Btv3MCw88amas+g4cee3akuhdDD++UfjTu9RPqKx2fyLhvsT
XOXHXElVw0PwxXsdXCx/jJ9t17+4ksFNkHaJWO7ueuJUTlIuljAuovLujSyJ
AGd8qFlLI+IsJ/GdVWiugc0GJ/x++7P4CgfRnc05dVVXH9szWOyP6T9GvBN7
7UZbZg5u50fUuQ5wEBMj1rmpWu5QrN6+NjHESfDKn7G2b3oEvF0Ovt4S3ISU
1uMozhQ/2FO5vrEhykMMPLx974lJIISHhInF3uYl3HI1L31hDYUIy1Ev+xk+
gm1aSujKQAT0eW+tmqbwE6YHwkknVKMg42n5WZ73gkQuN4kjg+AzuLicb2VF
IUyQyN2fOkcRC28VWJgXSkWIy5cXNd3m4mBcaGCfU7c48draqOJ9TTzoJos7
hL87Rfx43C48mfwCnBt8jF5nSBHnX0AC48MkoLi1eHRp4TQRW1CwX8XkFVzc
OqmceE+WuL/AJK/AkQJ98bVa86ryRJKjxoYebSp8Swj6s+CNiPp/T97Z76TC
F/u04jUaJeJLML4R/Pk1eJwS7eJiPEccOvz7yJuRN+C5SB3y9aoKgV5LdlU0
p4GY6O/uh5MXCSsxu4DB4nTYPBjG21WkTkSUpRPrGRlw/+bhiYY5TaL4wtQm
Vdxb6HNqpRcq1SGme1mz+Z5kQtOlyxXoky5xwEzXgnB+B/B98ov2t6uExGoo
m4HFe3Ccf3pPxtaAMHJr6HHQzYLfBi99np8yJnzJ9oJClLKhwEUidE39OvE+
UlYxTSIHikQDnhvcuEGQ1ydX7Jf+AH8GEpxEPM0Js21KOVuZXFhJUXzNOHqL
uH642Pg2Rx5cSd9JuvvkNhGS95n1aHIe7BflYc0KsCGK1TmHWrnzQfFzeonB
8l1ifv5yrNfrfHAOWRHgG3MgGB89uSJ2vAACQrO8R3edCHS0lHE6vQAGyJ7P
lFu5ELaFX7qiBAshMpr2JzO7OxGvyR1x7l0hSCTY3xbh9yQalq5obAl/BG2i
6rJ15ENi43Eg9dvsj/BB+fe/j5KPCa5j5c2GYkVwNIPmzWFjP0Lj01oAdV4R
aNuRHeVoeEJ46PCqVJz6BAe+rXktegYRGZ/1yO4VfoIvboUJ/oGhRJ9/cA3X
6WIwjXnVyLoRQZBwVT7q+VQML07rOHhYRBGipeuEn2wJHILDo0bBzwjjK8f/
SpeVwHD1zcTS77FE4FeDskX5UmBnDvNySYsnPgaGusdXloKfyfBr3feJxCwP
PqMOZSBXvl3ESpdMHKzY2NypLoP1KDHHIdtUQkFfoDBHuRyqTx4i4wx9Q9is
Gzma1ZfD1F8Tcf7VdOJ5SLg444UK4A55F+L2LJOoP17ztbapAm5UllN5hmUR
36s2s5zVKiHny4xq8NQHgtNIyEagrRKkhclkn1zKJy79uCY0rFEFud1hXmpm
hYR7eORicGcViNd26frmFxHpgnVp8joY3C5+9TRSKyF6a36af+35D5cDVRob
xMoJErHYp10nqsFup/J6qk0VcXjng32mTTWssvXI3ySrIUSam7UeZ1XDmMHG
JZr9dcS52FlR4y/VkDrWZXTjQgNhbP6XVkq0Bl6XFBAczU2Eg/jhLzT3auCA
QXJkxbNWIuCveNv8hxr413fsR0h+B/GyRe195bca2PpMjU1j//uX4iyC4yRq
4TeLm2yDfy/RauF9x96xFpjUoonX2f3EjMTzi6oFtZBn3mylwDxEbP/LE+D5
UQvfmhq5g/AIQd/WSvFHqg5MlBO+y5WOE/zx8/O9znWwxk6neZd8mlCw3K3L
KqqDAU+11LWxGUJXkvWN/886EDH+snFteY6w3jvle12mHvKG/I8+El8kfNov
3TzjXg8uDu+jcPEyEZdgqXiwtB5Yb3vWSQatEjlWj7iWf9eDjczdlZzMNaJe
KmG3+mwDSHE0T31h+E6MkhROJHg2wIpXJHPa7gax3tFe4VTRABPJnL8aeLeI
/YmLiZf+NYD3CKv7Cb9fBOcdkv+ooxH6VZ5bKAn8IaRPsxn/e9gILEa/BUSY
/xHqpNJyg7gRcq9phs8KkaCbXZqsuSRNUKhaWXltax9yT7r9K1CpCR59YX/V
8oMMRVg/Hrzh2wSW7IVfHE9QoqC2fUXzVU3gL608Dg4HkK+o77M7O03wVFqe
3vI7NfKKJHX6ItMMqxc+ZEUW0CG37746Ds7NIJMu93rHhAE5XSET38xrhtTM
fXnS+5mQXZEfnfvXZniUyRibNcaMrI6Qf9k50QLv8opPOE0eQjc8/FsfWbXA
5qP55B1mVmQ8Rv6O7E0LdAiaa/M/ZkNXiSeBgVMtMOkqd0HxJAfSSqawojnW
CmedBgfpaLmR6r6A85GGrSBjgqkPvOVByhaUfMyxrZB2UWecwoYPKTQE7Hve
0woWyz+Xugz50RnB/dNs9G3wKuW/c3cTRKeCA6teqbdBVqHyyw+tJ5DI6v6X
vIFt4CE5f1rCQAQJaAZ5ZtS1AeIUemfNK464cw8YC5O0g3y5sAHb0VOIjTFY
9oNCOzScqWL3aJRELPepjkh6tEN3bM6xtiRpRD8QvFVU1A6Ex4zMaPIZdECG
ul9uox0yVY2PNvXJItKEkIJKsQ4wV/tTwkDIo79/qKOUbDsgLB25JU0T6KdJ
qH3D2w5g4K9ymrqpiNaraLTU5juguODZG96fSmiVO0ykg7sT4l4afIW8c2jR
l5bm8vVOUAlr9Mp4poKm58NW+hM6oXJQ4ClT2kU0eoGu2XCwEzLDNbafLaih
/szwjHGmLth5rModa6KBOqnpn9zQ7oJyVr6MWTpt1GwXYTEf2gWdb2abjPZ0
UG0nvfKd5i44c5uExeiFLjKNv8jgStoNftXKzaTXrqJrLYF7xdzdQB6EaD6c
10eGf5rWfqNusD+sJLJjbIiumKh2eHt2Q3iqeXIEx3WkEx5UgRO6IWM+ZKa8
1wxpVTVn7Svphj3JS0VSFjfRpW8HEs8NdoOlXHf9vj1zpMqtFvJksxsy3T27
/6MEpHI52KOJqQfCR8RbYzKtkLJvyx2qUz1Qp+a6TVZ5BynMq10Mv9sDYQsh
q9tud5HcoZAzXaE94GgWzebJ7IDOXGjlZ3zfA+IGTuvKwY5Iyo360JXmHmBK
JR1Y4rqPJDLVyWMXe+BF1tlMqVFnJDoS8mOQvBeKPNMDhctdkTB12ywrXy/o
rhsYH2x0R8ftLtUkmfUCCrzCQHnHG/G8DM2b9O6F/IyeSl8yH8TZ2ZbMndQL
pOtNbV/sHyP2PZpI87Je2NoIoMvc8UWsEhoP04Z74XV9nIXGO3906GbY3cWf
vaBlMnwvwzMAMUW3mwgd6oNn7Y1Py12CEN2mhnz25T7wZIq0NV8LQwyjkhZu
Tn3wXv6rQWd2JGKpZg1VftYHVU1fk+r1otCRjN0Cuo99oEs5cYtzOxqxhc2P
Dvf3AU/ekYcB1TGI06mVNG2rDzZqx5d1CuIQj2GesP3hfuAJ1tlg7YlHQse9
HlAY9oPn80mGuPSX6CS1+etu934Ya6XFdJIpSGz9YmtiQj/skBjZZOSlIslB
0Q2rsn7oVRvdO3f5DTpdwcwmOdYPbYUNaR2H05Hs699K/3b6QeP1Gerb5G+R
QtCUdfOxAdg7O8LmwvEOKV/NKjU1HQAdz26fpekcpHI2aubEowGYE0m3bFDL
+28f3Ki2kgcgIeSz1uGafKRBef1UdfUAnG7icF4wLETaX5SNQmcGgJp522Ge
uQjp9go91icdBJ7DOjo7m5+Qfgn9Ox6+Qfgk5J6osVeCTPxHt4tvDYK3Brv9
7ZeVyMymmtvvySCIqs5F3jxWjcx1MlS1MgbhpPzG8rmAGmR1JszhaNMgpPTd
2kulr0PWx5zi55cGISDapv1bcT2yIzWszj0wBLox7Yo9/o3IYZlYfnBiCCgO
PS3mcG9Grh+pZBlthyDp4UtPu8l25PHim9l46BCQxFOsKBp2IS+fgcC32UOw
tXbi1WGyHuRjVZ7r1DEEK1+uHOZz7UV+GqlDxNoQrOdub7ju70cBkoF7Bw4O
g16IWZFd6QAKYb0r2C8+DLtPQDA0Ygg9nZd1s3EchgvGd/g0c8ZQTCtn8uno
YZgMLWHY/juBnueRN5EUDgMVG3vTOjGNXsR9XmvrG4a/pi8auuJm0Cuv7sPP
N4dBa2ikj5xmDqWaf0Lmh0ZgXke87VXSPEpTTbISPTMC0XSxMz2aiyiL5c6n
OrcR2Pz4keIV62f04Y/mZET8CDwWe6XsKPMFFUxLURqXjkA2Higw8FlDRY1H
xfhHR+BkU/1Zac91VJK9p7f+ZwSe6HQmuXd+RxXRC97l7KPAde30RIX8D4Td
29IDFEYB/RQtmavfRI3nn28dezgKu4mrhtRS26hF2Jtj+dUoyJ4pOuh17A9q
Z7BQKcSjcOL+SFWJ8F/U/VP17sPpUTj39R7j9Ru7qG9cLFZt3xio/Dt94OgN
EhisZalk4R2DAwO8X55n7IPRzD/zU8pjwHHy0llFCjKYdm6UdvUfg39fE3mW
GClhvJmCLTNtDLTYPEbvlO+H4WMqeyP1YyDblLj/ih8V9Dv4z9MsjEGE4i/2
fFsa6K6vayEoxqHu2K/zua500M5KlmvPPw7o2YxqUsZBaLZTjklVGYcIx6Kq
rV0GqGapMaUIGAdehfSQlDhmqLhDcl4mYxye3+3e50VxCEoq4IR14zh4Jy7Y
l4cfho8Mj+gTF8dBK9DDlvwUK+TdqvrRTjkBM9L8vYe+H4Xskn/DuwITQGX5
TLClix0yaYkqiYsTQCF6nIKliwOSP5YHxQROwIW7w9xr7Dzw4sDO3ca3//Xb
m59+0+WFOJOzV7abJoAx3nuz7hUfROd5yAovT0ByTbdGCQk/RJCXcpgcmISg
uzEfRR4IQIjhNmmE0CS8pEu8FksrBAHZMstYdRIEeSvCPEtPwMOrnwr4gieB
Pb+wUM9aFB5kbj3XezcJZ34mvuyyFwfXv9LegS2TYPtFPftzmwQ46Tibl65M
QgxDmF7R91NwL63w4irVFCixMLQZCEuBzfaGCIfwFARtnB9Zd5UGKw1JJm31
KfDwlO78MHwaTDfzxgtCpmCCgSk1bVoWjFXXa+bfT4GrKqtdePBZ0EsSf3u4
bQquFPk839VQAJ31e2Gqq1NQuMGT+kgEgQDvkGwlxTSkiYlLD7IowvF215OD
h6ZhuYCTjp1PCXhdD3N+45+G0FZK5g0lZeBs1SPjuTANrFYRAtxF5+GY89aW
nP406K8863tAcwHYOGOXda2moZVEk8TB9SIcdurv8A+YhvOSWg31EerAcsy5
+mXcNGA5B8M4pAFMjcyFnzKmIe4kd+LSfi2gZ7sSv9w4DWaP36dr/tQB2vqN
kH1D//kFBEfdKXSB+l60N9vSNAwP8j8zPH4FKGt7zDX2z4DcxK24yBg9ILdz
1LM8MgPHXtJsZi/pA+lhRtWHgjPQs6xQR6NlCLvWOqJ5F2dglxhOe2p4Df4y
r3O1GMyAfb/j+YFdE/hTGck0e3sGzho5XUqoMIWfjF2/mINmQF6WnLRQ6SZs
lt/7LBI/A7nCB8o8LprDhiX9hErmDJju2Jo8uWYBa6WatW7NM7BjefAvyrcE
fqomZ8+hGXhcXl7MN2kFJoaKgo8WZ0C/ozf039E70PpTMiyAfBYq5VWdFWts
YN+FbBTCPAs2UkarjGJ2IBvL/z2cdxYsFSVfv8u+C+lSrPqxirMgfuiKy3FH
Bxj3jTqQoD0Ld/ZzFLhrOgJTL3V5kuksfE27IHxZ2gl8HP5xpXnNAlCKnjfm
c4Zi7Nr7NnQWHlp/7Xsg4gJr9Ov+WS9modP2Ud6ekiuY5MyuFJTMAm3LWQ2V
GHd49vda0qemWWhVPtLC2usBrZcGtMoGZ2GHJve8K6cnyH5uKqzZnAX1XalH
QgveYC+nZNVANgcBPC6Sn248goygMtYWpjmQdxjel+LqA8yCOd7dEnPw1LtU
8jeHL6i7Ckj0wxwcFbCtr9rzBZ+G5NkhrTnQzM5hslz1gzWL6ItTdnPgnvqH
bGDmCbSmuDGuZc6BxanftHf1Q2Df+nrd9+I54Eiu/6sdHQqyYOO61TgH4n3O
5BZjYZAxYTL2d34OutKPNu7ERcKEyGA4yeYcFN8usyaePAUWL21FcrJ5eOTf
YhRxIQoesymn0/DMw5jROv36dDSUWJcbHJSYhxe0pydDyp7BWok0NTPMQ+Aa
l1RbUgyYGAjas12fh5VtZ28LrziQjaGVO5EwD7u2R6ys8l6A/dyTVZHMeXgc
Jn84digRMiT3XkoUz8PRIA2DBaqXwNLznVR2YB6+vY+0VY9KhkvctkXy8/Pw
5TtXX/D9FPC1n78NP+aBttI4ufB4KnyjG2q/wLgA7t9zvse8eA0C13UeqXMv
wJ3RX9U5Zm/AJLvllJb4Alym4NTqPJkGreoVcXqaCxC7p1u8MZIOGYGpN24F
LwC5zZBK2LN3cCP/bm52wgL8SPVeWcx+D2xjcrub7xaAROXRF//uLIgQ6018
0roATmqJ5nkyH0DV8NXnjtEFOOcdv9brmQukvjZyh1cXwEzf3CvfMg9cB0iH
MmgWoU/ga+deYz5I7HXyf2NfBNHl+/z9PgXwWSjRWUZkEWh/dSruKBaCqZcU
U7PGIiTc6ayb6f8IF/huaa6EL0J7eGX+I+0SINGUSDr1ahEChSOVDBRLocz1
72ePD4tQ4kq92iRbBmKtMUHUXYuQ33Qyhk2pAg47NtSdZFgCsa3D9/YbV0P3
iygmZ+4lmOIP/sf+oxpC6q/frJBYAk1lT+3XT2tg98jPXY3LS/A9rIVCb6QW
FqsEzt6LXgI0rbfu9aYBUpY3gj69XgKSg+Mv1M0bwZgJD+0WLMGs+KA3v0AT
dFoauET2LQGX9Y9s9cpm+EQblJfHsgxW9etUEifbweHM1b3t48vwNWxM4SJL
Bwjf4NZSOr0MdSNvEtZIO+FVYclqj94y/Ig+a378excEGK8I/IhbBg3PX1uK
VL2g6F/kIv92GSTKxeXKYnrhT87jer/iZaBLt1AW4uuDe/vYzFmGl8EmjHRy
XbUf9DPVX54+ugLbLqWpniWDEGL7sa/ObwX+P9/6P3dfXo0=
     "]], LineBox[CompressedData["
1:eJwVl3c8198Xxz+UlESEJLvsVfmYfd7v8w5RZokoZPZFZUTZZaRklVSiECoj
skcyyiyKyCijjBAi+7PHz++v+8fzvs59nXMej3PvlXLxsbzIjsPhcthwuP+v
uqJChZXIGlzYlTtQqDgCL+ci1CxN1uBRVXfyP8oQnMbdsC6IWYO89mfXPqoO
gOwtgi7+/hq88ilQ2JLdD3QOuvj7lDVYODzzqVewH/J3hs72v1qDME/7UQnO
PmAKBYfiWtdAmSF8VX17L/SnaTvFf16DcJTDteFeDxSIkg2E+tbAk/uAftPe
HrCSDuRRnlyDUape6AmXbnitcj3bBrcO0aohGglsnyGiFH9nknMdynBkkNLo
BGv19UtevOuQ7LfrhaVXB+B0/PG3xNdh5Rqv9tm/H8HG4OrHYsI6BDul+DiK
toHyx0NFOgbr8Ev9HdXWvxXYjZeTWk3W4ciDXPqN7hYotvA5P3x+Hfrw1n+4
HzTDVjuvRY7gdag89a339vEPsN/krKR65DrwMct47zi/hyNH4YxT7DrEVln4
PccawWk/X+27tHVok3nVxylcD4E7qX//ZK+D+GTdGPvuOrhHmxQXfL0OorUK
ghu876BhpDLa5906YOX974Tk3kL/54ya9OZ1+PKNrLKK1MBC3Z35js510FJc
mxK1rwaRdNtTB0fWQaRU51ntm0oIsKfvH6Ktw/tXP87ezy6DRNNp821bNyDy
uL+S679SeEnojlTn3oC7E11i2LFS6BPN+pMougF7DBuyV5bfwDx3rEjdwQ0o
VDnZzlNbBOyMq2azyhuwrzgxakdCIRz6qV+hh2xAn+zXaK/TBWDUpTzjc3wD
9vpUIAb6+XChQXBfhtkGvByzju5D8yAh489NksMGBDm+e8xu+QrmHOKNi25u
gMOrUSP1iWzAmV+7MXRnA1L5Z/Rt9mWDMOpQuu3+BiS2ZrBLnssCQ3E1Iefn
m/xc+tS5nxngwCN88l7eBsz37i/biEmHa0xcWF3Jpt9zL0fZsGeQ8+vbhOCH
DTh86nH3m8FUqO2uE9D/tAEXDz8Rv175BHoaXxr59mxAaW/8L1pGCrAyA950
jm8A754Yi/LkR2DvKBIczkYEJxPrES1yEvhbbCkq2kGE8iWJCQeFJIiDhV9D
fETQj5EqKm2/B28lGg3w0kTI+mbAwzERD1958wKdFYng4BfNJn8nDmZY91/f
O0KELn/nghDdWBAcd949p0cEP7qNuXv3HVDuMdYXMiFCy3+d2GzRbTD4oB6g
f4YI+yOob/5LjQa/LI7RDFcibK3v2W37KApik/7xfL5MBB4TbbW+F5GQFfH9
GNmfCEWpEqt2jRHQ7VSQZxlNhLu5+B0vZG5C1IFw3Y14IsRa5cgmloWBxoxV
15OHRPBFFv70mYVC+mXc2mgOEZJK7B+uVAbBKdXB2+GviRAn5ZCafDMQtq4U
CkuXE0HZ5dLRg2cD4HKADereRASV+cTDU8rXQFxHpXdHBxE85leatyj5wzca
u1tRDxF+BkrjiXg/0I0sjl0ZIwL+rGqT+yVf+KcfLfroDxGe5JQfJCn4QPa2
8yWaS0SQCImZE3roBdsTOAZCmUSI2IUtzmdcgnrzEXfxbSRQiNV23o56gg9f
GfXDLhJcoQWtL/1zh8EUe8ltYiT4E6OSDxEXIe7ckYr8gyTw5c1aO+noBqjo
dkMTZRKkIxJmLqau8Cq74nLSURI8bKs7dcLcGWzdYplH9EkQKWBQMO/sBNxy
jg8GjEmwZXBC+C67I1wr4qoROU8Ch/690ZzNdiDvM36ywZkEQ3NSdwax8zBy
uHrU0ZME8nzGuXv7bEGvxpn9VRAJ/s7wXXJRPQvEYK3HRhEkeCTreqZ+wwoK
CLvk52NIIPJI1EC+6wzsbn5rpvaEBDifDD7NgtPQGn1vvDeTBKk9u2mXi05B
kJGb/7VcEiwLwXR1sAWMfeFNq60igXCuOLRwmELy/Wkl+wYSiJc20RK9jcHQ
sq6R2UqC01NWVzkWT0Dx9/+m9PtJECv3S6RF1hBcnhICZ0ZIQN+m4b5z3AAE
Hfi5Yn+TQIVHv2JLoT6ETTaoda+SwJlDcj7S7xgcevWw2ZdKAutIaX4nLwx+
u3ta72EnQ6lp0OejiygYLwqE2vKR4e4b04osl6PALJnfRRMmg5eN8+SXZh0o
8/uQlSFJhmWHnBGCrjYIky+3T6qRYU7tzqjoJQ348u7YudtaZDh6ZCPHRBIP
4Tf2LsgBGaIFTAN0547ADHsLn5c5GQIFMic8Sg7B07bUl7xnySARgC/MtFYD
87veWuUO5M3+DNOjL6lA1S4RB9IVMuQoQbbarALMKBk+979GhgT+ihON1vIg
bOw3sRRKhiN+M5X+w7Jg7JF54MotMtSZBE3wXpeBsDudF2fjyBD3jLfN5eBB
KH5JzHNLJsOLlslUkz/SMN4sPT+eRobqIi+5t/VSYMAK8R7KJ8N/LxNphzQl
IEAsr9S6lAx7k/YXWhuIQf7RvtXeGjJsNMfmU3z2w/A5Ft78PRmyzAuMAmv2
wc4gpcDOdjIM2Gq1ofuEgZBiU2vYTYaTxvzIwEMh8K68RWseIEMT1+3CPhlB
+LY8El43RYY+/x98nXH8sJV3e7PWAhmSdnVtsbDjA00V/NbKNTJ0635StEJ3
g4eJk+EhGhn8Oi61JV3kgTTPhLtF7BTY4F+OsfThhs6Yt53yXBTI/OzfszWV
C+ivprhf8VGgpo3bZ+jndnCaJDzIkKSAsKbOTtV3HJCM8+zbJ08BFudPXLzZ
VmgVfyyYokbZvI8KRppI7EAkNNnwa1EgtdvseUANG8jZLabdQylQznzY6hSP
A9vgfaNchhRokHrj/WiKicY9OS4eY0aBAzvkmkQH6ei/voyccHsKVCc+W/2y
n4JKrnZM0VwpQD530YztCgm13E2UDbpMAdlGwa+4HxtotKq057ofBbo53/23
98I6WmVqXugbQgHGWCbymr6KzlwKWVyIpIAuP/O8ZvkKKhybq+YZSwEZhyFb
ixvLaFgbs8I5lQLxLyoG32csoMW/FYk/n1NAcSols+PVPDrOZqN9Po8CD7ee
4RP/OovyS94KGSymANo6m/5i7x9UHy2pt6ymAG3Vp8fpxjR6zX6E2d1AAT9v
w/shzN9obgjnMZM2CpTI8NgfSZtEuWoc2/T7KeAZJ5XLKTiOEgbiOT+MUEB8
hQ0sZ36i3ms1Jwm/KXDvkcTjkY4RNItvKv7tPAUeX1HXl/g2hPaq7e7Gr1Lg
LvrQr5b+HWU3J+wuo1BA/uZtpStGgyj+ioelChsViisrJcRK+9HU/A+DMrup
ULJi4Vrd14t2ti8I5+ylAhslTI4rvgelTwnbiUtQwTXx2s8L5d2o6pbjGU9l
qUCEWnm94C+oo9TVMSFVKpSH+p2fdu9EkyBD6qEGFapoQUKZoZ/QZocOV16E
CoIHPxQtlrWjsk+lZjlNqXBWKPOk1I0WNE0mMEjWigoLFc47ZpeaUO6yL9uP
21Nh7tz37UcjP6ARBOk0Vzcq/N0Rk1ri0IiufQxUiLpChZOOfg9OLtah/53p
qs26RoXV8xxGDm9q0eFf0sbvw6hQoaNEMHlag37Y6LpET6ACa/cBp/DFChQf
eYAm8pgKWry+jR/MytE87uB4nQwq4CK2xHd2l6Iiqd37bV9tntfEV46MFqP3
DhwsCnhDBT+4FTlqWYSylQQTHldRoalJ0kiBUYBe0/36paKBCv35P0yVv+eh
dqdDFpe7qDCjoP7fn50v0e7Rrzd4B6mAFYg18jnloHoeMjyqv6hAOhJn3zWY
hVathWSazlCh1XXB6utwJiof3qN6+d9m/WaXP7fopaPpXLLvY4lUuE126Rse
T0N5U0It8plUeCFicamn9AlKLJL1neahbb5P1lzGBh+intphuK17aTBsIneM
JJOMjrb0JklL0GCdOfJ9LDUJPWUhJ3VMjgai9AjzgHP30JbhsDJHNRqoJCXm
fWyIRzX/+3bsphYN8Cdi53rPxaKvV+S+pQMNdq9kOAgoxKBiN2641BnRQKj/
joKH3G00aXvf6pAFDerlYx9TTt1CtzySv0W2oYFv99WuYzmRaIDEzT17nWhw
TtpIgE04Ap1/3fdCw4MGduWf2vwu3EAdNBXwVr40kBe42G/ZGYL2NN1s9Qui
wY1f1lP3vYNQA7N+qwcRNDBPCBMPNwxAa34oTJfcpcHpDrNTA2bXUEW38Ovd
STR4slMs8XmEH5q51M+xmEqDhoT084QRX5QvVDFlZzYNdKzTG15XeqPR2yJk
FQto8NYukbti4zJKfjBQfaKMBnJF4fglf0/0spiSkXstDTrqd904ouiO/sqP
+H67abMe2+qe1++5iFriB91fdtBAbbxd67CyK9r2Xonc3EuD6gylH/d9nFFt
k8i7E0Ob+X2ODzxX6YgWDQ4K4yY3ufb0dqtee1TCRblAfJ4GfEJejEm182jy
YqQOskqDb94BHxw6bdBtwd877Kg0kPE9vPzomTUavFXlfAg7HVzIXA8+ZZ5B
F+5Hzady0UFZR2vr86+nUaf9P0Jq+OmgLTteLqp4Cu3LVdk5KEKH1MR/H7St
zVDDI7eerUvTwX0R1JKeGaPvGn4o7VGig8c1YVMZqROoyknV+sPqdOCdJWm7
jh9Hs/pvmZ46Soc5+cIHav36qIDT0Ki3Ph3oBH69cdIxNOavqleiCR2c/mgq
HzHCUGpANKPwDB2szNzEIsMQlGugfRHs6HCrPUXGb1wXFVHf8avPhQ4qu20M
xW9qo4oPTLrdL9FhX/Wt3/mnNFGdpcRG2lU6lCxznXx2Bo+eMOspvh9Mh6o/
aw9Ho46gtoX8zw9E0uHPU1T39fAh1GOH9f2au3T4vdxqIl2iiga5Pwk3SaID
sZSntHtBCb3bNuQz9oQOO+QrBRI8FNDUA6JO/s/pcM9QOW67mByaH3nhFGce
HQjr/M2uHDJozVgW9qx4s75zS8MyYgfQduT3IbVqOgi/L5vSdJJCB5/JSLU0
0ME7q0ei+LEEOkNx57Npo4Ned+qGaoUoSrR5zfb3Cx0CIuUk8/hF0G3VCys3
++kwHz3xw7p4LyokoDbJP7qpXxqJIEUIorJ+V7/l/qaDuKiacd3tPahGT0Wz
7l86PBRSr9J5y4caqBLLu1fpoBWl13tZYDdqlaD9woVKB9eOMldDlV2o23zI
QyIbA+51cghwBHKh10403IrbwYAWwonmRRYnGp3L8hfnY8D7bonXLs0c6KOt
em7lwgwwSq6s16vdgr50ibYylGQAvk9339gYG1rxod1gWI4B637eLiuHcWiz
+A4NbzUGWDQuN8rYMJBvYSYy7FoMeOcuVuqRTEUmhxMFU1AGtI/V6ajwkpFV
7R4ORUMGvJQft4/5uIGwP+EnNpgxgHm3+O/u6jWEf8Nq5rQ1A5zn6rb9GlhB
pM88GZy2Z0D8r54kP+ll5HDZUHuwGwPEJlS5rqotIhivaM2uKwxgv/9E95/r
PHLK60Jetj8DSnvWvB6P/EGcPmc90QhlQJfv6R7dpGnEV+F3TEcUA3QMxS5h
Yb+RiBiZIIc4BlSWS1bEPp1AkqbdPVYeMICn1NFz/MsYkqX/2vZ2GgNyXqme
9KsZRUqyF07sy2YALfbEp72LQ0gjS1XnTT4Dbs0/zPr233ek2+GqwrFSBrDN
jOUYiQ8gv+oq9g3UMECxpVajdFcf8m8fcYfnewZcRpmCXWq9CDNQm0pvZ8CT
HeJhlaxuhGcwZD6pezMf48dVnGufEXF8w/DBQQZcEvjp/fZwB6KSzOp8+5MB
e+wGhF5VtiOE5WN1ptMMMPPsVbG+3oqYmkcXji8wQFahkTzn1YzYF7U/u7bO
AEtvZuLutA/IFa4dCdvpDEDxqYT53w1ImIdJWPoWJizNfan3nn2HJLQnXjm0
kwkIn87Ke623SPrBHvtWfibwGFb8etNZhRRF8ZvZijDBRiGhpuppBVI/boUs
SDGhT//l/Ep2GfIFfaISocCEvOsRenurS5DR9CExgcNM4I1kCtlFFSF/qft5
8rWZkCkrW7/0vAAhtMeY/sKYm//e3i1O33KRew/W4gROMuHS5ghfPf0SGbN3
7DA+zQTjRJQSJZSDHJL/zBl5jgkXDa2IbcJZSNSapmGNMxPGjmnOOr9MR/oa
c6IXPZlwQ+yay9fgNORgHE/LAT8miDtvj7HKS0ECrEPYzocwoSQv4XjcgUfI
R8kZSIpiwkx4QwrHzANEeOH0zfY4JmSUx+mHdt9HLtU01NOTmSBi7Lk2iyUg
dVEKtCPPmJAkfdDNYG8swm3+WMfzBRPKzp6UaDW8g1zYxxb0vJAJXxaDsZa2
W0jJ1JXqgQomRNU28L+Ij0RwpT/Wd9YzgTahH+soFY5Yhhqo67Uy4R/xYAdv
eijywrD0atAXJuTIb9RzhwYh63yipcX9THBcJFx3qLiOGP6M+Tc1usmr6z5q
HvVHnuSvKe+fZkKHyOWokR1XkVl/x8unF5kg9eNLF0vVG9GFzwUxG0x401R7
xOndJSSeS2u2gbEZT/mAl1+BOzI6kCO7zsGCuRjyE4UVN0Q1m+eiIg8LIk2m
/xTFuCDhV0JeOAmxgBH2s07TzQnp0ZqZSBFnQeIbN71/DHtEeoulZJcsC3yC
RSdWs88h/t0NF7aoseBrSJrbvvyzSGuaQoaOFgt+o4VsDhxWiNDFxyM+wILw
HbvMl0tOI+6H2ERyjVggZhvN0EQtkLe0K7ajFiy4YPI9hJBignB9/JHCb8sC
hVfVngrnTyB2yQYDJ5xYEL+jn9F44zhS5FC6J9yDBaDQYCpK1EOY8qKWVb4s
EKnXXnpSiyEW6zFJf4NYcHOwKuZoOIJkvV/rlopkwcXJ++2SbLrIapzjLttY
FgwpYK12fzUR/bOfTe492NzPO7hr6TAeeSSlFdeaxoKsRnMj7c7DyMxCzidq
9qafByylh9ZqiNZbHs7Dr1mQo1UcdS9FCbl7K+S4ezkLeOaWlJNPyCPD5jO3
Mt6xgH1rufnNCzKIkohlc18zC4wZX/gqvkgjYdMNOK7PLLj2dDBk+q4k0l2q
AFgfC8RRbo7VPWKIRNjjGwEjLPAarv317v4+xNeIrb7oNws4VvJXxwOEkGZ+
L+rkXxZU6Q08a6vfg+z59UN73zoLvqnbKWNn+RC3AoNACzoL0Gyu1zN+PIid
7o9hPXYcNvj77QvzOi5kqyQP1WEbDoMD/16fCuBEijgM9gVz4bCJvzcDTqds
Raz/Bms/4sFhMzk1Sma87Aizp8SmhB+HJR0bmzv1hkXIrZ4O6BTCYUUMqZ5d
7TSCRfr+lGkRHPYfLd7E1JZMIEeersJJ4LBn6VutQ6w3CFnuMf37D+Cw4ZbG
8sbSVcL2UI/PB+Q2/ejk7/7rsUzwvXeyWUkJhz2PvxjS1b1A+JGtWKuutqn/
V6ZWYjRHgKqdpUfVN+NzfK2tU5kh5H5ayNXXwmHhnBpx//x/E3hGuzJMjuIw
dcX2H508E4SApeJHZwCHqSwW3LWf/Un4xZ4Ub6e/qe+sRE9rDhMMha5GuRrh
MMMfHfmlpEFCsYJl8GWTTW5+ov6xeD9BCFH39bfAYYJhgnVNmb2EG6cE3EPP
4LBppW0pA8PdBNPAQat4OxwWIZzzLS/nI0E0M1XvmSsOY/UPch8TaiZElwXr
vHDHYUpHgX86+z1hofX8ocLLOIw/jI9yPa+OUPdXVLzOf5NbXdXOE68iSLMY
Ai2BOMxy4P4Rcf9yQhz/2M7PoTgME6/5tyFaSjivk00ZvoXDYnMtc8fv5xOa
TaOWJ2NwmCK6Uujh84qg6OT6Zz4eh+38ym3zoiKHQLkjM0B9iMNEB4fY7PzT
Can9BaUiL3HY7NidN8c9kwi42bg86Xwc5nB3/3vJlASCB+1ypmLRZj81ZZ7y
Tt0laEmrJuhW4jCxF+/fuYxEEQZ9yt3Pt+KwwFd36+88uk4Q2Fkn/nQKh53k
7mqJWbAjJB37krBPhg0TNGpMtjaUJRg2vlAflWfDvD85/kR9DhDouqHDmcps
2Ot6Ea/5NUmCB15R/iCeDXOKDeVAPu0jYHJ3W1T12bCj8Fa8t34XYZnbgKrv
zIb5TZ2ZoyevHbX4UefuncGG9V2Q8A7U/3CUx6dQr0WQHdsI0znaT7U82mjw
tqFaZAum8mXIcu6NtS7Dy1HzLM9WrEzYPNzt8xkdNs5vaUqMrZiI489dO6/r
aWue8Gs2xm3Dfr5O7Rm7w65FHS2aFVzdhl34+N2+/2KzhsGVT0lmxG1YqWOo
hnN+vUYi7bf2beo2DJk0DDh+qlpDUmR/7Do7J9bxQvG43/ZCDSObWIW+PZzY
fhEHF3LbQ41HvRcvJWlwYv73P1/9b8JNQ7VdfIErmBMb+pTK+iy4TSPIWveR
3o1NLqPk18TNptE0ZU0IieTEnuoG+jqcpuKttiQmzMVyYkXeaGrLmSV8KEZT
/vSUE7sgV5E8Kz6I//Tuu9ftek7M1OyW+FrrKzy/8ZpgwwdOTHEx2MurLgtv
P8TTuN7KiSXXyC00V6fhl0jHedy6OLFBwlU/xtl7eCGNymK9X5xYb8aJxnTu
63in1q9nQyY5sS01aWj2QV98wZm/zLIZTux1Z5ArV5MHnuAnbSG1xIlpf53I
PSzggL/DhpJs1zb9tL4789XwLL4n6dzzJBIn9rVbJvkh72m8iOR1o080Tiw4
+kaTsKQx3rUkaYnF4sTmIy4Kn2fp4/8H4bOZ8Q==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-3, 3}, {0., 0.4244794451153292}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.518578324963789*^9, 3.518597065723183*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxF1Qs0lFsbAGDVUeSSopQot1KS7nQhxiWVf+gXihS6SKILitzqqCMJOUoN
EX4lqfxyzNXMvN9MlOM6NCliXGpOchlyiUM4e08tZ6/1rW896137W99+937f
rXP0rNOJmTIyMrfRg9/GFou6pqZaQUY6+i2crlc/3eT5r0NqrwWc5IqmLRQq
dPG8W2ByCo8+Cy3irJqpZvN0nHq6VHZeS9O0veI39DdGN057NDk8FizeT8/P
URYtobQ3TMfT924IfHPj7bSj/b1DV+8RTjt8Vn5IYG/9tCU8Mwd9+3/tfaVW
vyGvDoZ+fn/8QdMRpnwdtP10CkdMSfcTQPRPB64dezAQXguakz/Mal2l+Ey3
BiijPywJ2Wxwpa0KLop/WE/F0sr5QSUIsn7YT+u461JSBahcm5S6yDDWr+Nj
OaSrjkm9ezTdVjHhNSwe7JS6teyFtonJK1hPzpX66KWcJ2HfSsEykjeJLTZK
2Qi0l9A0dWccey5dXVXJ6yUE25T9jb2elDboLv8SLp8wHcG2jvnwcYaIDyVf
fh/Gdq3UFOYV8WFWQMYgtq/KkVLH63zYq23/FTvcJbP42yE+DAXckGAnprU9
zFjPh8xg627srFadFBtZPnT7en3GNoy2UqL08WDZhKEY+w/9Y791N/Lgj0Z+
B/arUw8vJBfwQKvOrgV7n2JZr5jCg8Fbhk3YjQXiE9uu8iCnsqxBut7/zhbF
B/DgFw3VN9g9gytd2w7wgBOpUCtdn63pgrlkHnyKEFdhX7hrV7PJigfCg48r
sCe3+u66bsSD0COiMuz5UU9MjGfwQKFnlIUdQ1tVrjJCwJjWSgb2mOSx22AP
AbtgCxW7wzM3gvGegLf+IwXSfFFWKN+vISD4c+5T7ArBw8zIUgJmPt+UJ91P
Ug7fqpCAAx6tWdgrw3SdV+QSMM9qPB07rShbPCedgMOnJBTsaL0suerrBPyf
2J+E7SSb4XDAk4AFwZ8jpPky12zb5kJABj0uBHv7xfvnNe0JkAiHz2Prfk69
025CwFdnDR/su8uXrCw1IiCrocZTeh4OUui5ugQMB5DcsAfL7zadVibg9qiL
PfbJGYv8HX4hIHHDgDU2Lchw3HsIwFGeZCbNj4sBqacSoLXiyxpsgyU61TLh
AKG/zp6DrRK3vL/MB0Dr7Lvvk8ijY1qqN50AIpnmA9jlzRpuCw0ByKWMD9iF
5CURTQsBUi1La7EpXPXMzBkAVxOcXmL7ZqmJVzdywaGzIw9733xVub5SLgQt
bErD3ho9f01xIYqTd8Zjyx9XPr8zlgtNyVsCsPMN5CacTLlwb6GBAXYyZbb2
Yj0uqFbUqmKHyctatyhz4fTo86kJ5L3dM26c/IsDO/Z8EWJv9JB5ZlTPgTv1
m7nYGtWTNV85HNiXnpyL3V0wrhaRwoFZjw4HYwuXj5mSfuXA7h00N2x20qj7
7AAOqDBGzLHjA4ezkmw4kGQ9Zxa2kUmf0aNBNsRdGov8juxjfPkys4UN9TM1
XbEzV86rr37Nhjy/UCPsBerrQr7dZ4PRpaQ348j28+DPuTFsKFij8xD72hxH
zeXn2PAI7gZij4yc4dnZoPncWjns9f2Tqh7GbGhQ9hKM4f7TmehzbjEbNAfO
pGA3vy9QSO0pAYltijo2nylx6bpTAmHdt0dHkb+/iMqbjCoB/fuFedhb8pXH
F5wqASVnkgt2Xppx1g7zEhA2Ls0ZQW5P5g44GpSAYco8G2yNmw62x+eXgIJS
Zds35ITwM13xYhaItr9TxH4VNGmWXcsCzTje/WFkGf/EW1QmCxTu5a7ADvQo
2CxKYMFtvbDVQ8gHzSVR60xY8JB8rOsr3t8tUXXW2ixwFDruxa5cq6x/cC4L
nsnq5PQj71xm/OcVERNcOIY7+5BDFnGXppQzgVRDuyzB51HZ4cyTIia02dcw
enG/ngpQrY9hQuUnDZUeZI+RiRN/nWPCkCB6bTeur74Expg7EyJ9P1h2Icu1
PT+st44JgvVJdp24/xO9j4PfMUBGf/vrj7hemJFjsTwG3Iy6FNOB7PVCiZzx
lAHnjoabtiO/yV47UHaZAUXbtvqLkBXTODZNpxjQ9iBV0oy8K5l8T7KfASoV
8l4fkBnRAWbqqxigWKSg9B55IGwicc0CBjAdZto1IK8JSmi3+E6H1HyBvxD5
wbHnMb4COuRruIYKkK/a9AqYoXTgNLkHvcb7vbvHcfMxOmzgpH0vxfknd9cU
kOlw2t3Tj48c4fKlKkeXDtxDmRI2vu/cOu2XKdFBUS1hJgv578OfKygjNFg3
1TFMQ77oIy5PqKIBKVr+QiFysd8nOzk6DTya6yee4f898/FVdDYNHl0b8nyC
fDakvTTkIg1EweefZOP6j20hvLVpoL/RQysJOTe+2aJ5Lg2C3E6Z30T+lPSB
6zpMBZ+r6gYxyN6pjWz7CiqQPvHJ4fg+yni/41UxFdp7i367gCzKfseyzKTC
M1uDyLPI7vlvGVuCqbBYYpl5FPefAqFp4REq3KB0vjyE3FD0hma4hwry4YvS
nZH3l9QVL19GBY5ZvJst8n+qqgvly4thUHvR/3SR4wRV664VFcMt1/kTi5FV
1bWPquUVw3bn35eqIf8DUHprXA==
     "]], LineBox[CompressedData["
1:eJxF0wk0VesXAHD/JFG8UiJjytSkUhTx314SConiFU9S9EokUdFApRJemV5J
Qumil6lyXXceyNTAFa5KxtxkpgEZ7jtbLc5aZ531W3uvvfe3z/o0PI47eM4Q
ExNLJl78tnSZV1hk5oPx7hjlhaI+yPRZesXyST6syuj1ViRsORzYoSFJBvP7
FukmhHvfbb+YoEIG1RNpZVsJ32KqK/2mTwbxbpt4G8LCS+U7xlzJMC58aeBC
+IZn8kd/fzKoCI7IeRA2tDp5/vM1MggDWkl/Eb4qo5pb95QMTSkB4wGE9foH
LG3LyJDnbFEaTLiuuqS56AMZIikejqGEtRP85J7MLoD12TmMCMIlS4sDI90K
gH9kdOE9wr4Sd2RnBBQAKev4+vuEF3X4ZJy5XgDlb0a1SIS9shXeeuYXAMM1
4UYWYdno7hMN5QWQpKYwO49wgT9X2rGpAK4rR7k+Izxrk7eJmTQFNKNOJlEJ
5yiZ1RaoU+DhSEUEg7DT+ELf1QYUGOlu28smnM5jpSi5U2AuOTSlmLCFrZz4
NzIFspSvf36F+zggNTBSToFm8u8NlYTrA8WaJj5QgJEaT+cTPprcS5s9qxA8
vGeZ1xJ+9rQ9U0apELbax3TXER4rabglp1cIlKU3r9Rjvb4KfxWnQrDb7Rf+
nrBAnOeucbQQTu+M+NJAeIki1U77QiGY94TZN2I9s4wVa9MLQSBj3dqM/WMu
t5p/L4QVmzVOthPWSA+uspKmQmrW+bNCnId2gmWrRrgtJugT9m/dn+i8jQqn
lp/+4zOeb8gp3HUfFczWSBl34jxz7E4d8KWCnmGtXBfW22Di4H2LCmO2gY+7
sZ7VejO/f6lwRaLXu4dwvusKvUAWFd7admr2Et52RVE6REj048df7MP8uq/c
WEMapJvr9gzg/J1dube300C+2TpoEOeZaL2X5EaDmeuHRegbOvyg9Ks0MP3C
H/+C+9hcdvhxIg1k/j0Y+BX3Yc/ek5dDA/Ibuw70szPZ62h1NLje1cH5hvWi
HqqzO2kgodGn/R3nuX9XpniC6Hd2PBxdX078R206jKhV/j6E+Upe91tO0SG1
xzhiGPex5s+bwgg6eN6+VIO+Yb77fFcyHdJIQuUR3MexLXu/ldBhV2vgA/TR
UCPLH+/ooG4taEHnx681EPXSQeEuV+0H9meqzZdSYADLODYGfZMvL5JZyQC1
l+ml6Pr2uT1ywICk1tRR9FHZ0TKVwwyQ/Cfhz1HM3y8IXUthwKnPOXPG8L51
m4DwJQMYeTsN0ReCHozfbWXA9n7N/WjfOJ9gSVkmPPKlPkZ7LXmzibmMCS1D
SZVot+xNQ/5GTAhLGR9A25WKBzQeYkJs8Sn9cZx39xH9+GAmUCqz7dH/b3nd
bx3NBLllKT5ovdE7PmQ6E2K6hGlo2TVrD0fJsYAp9pf4BN43xj9aW3RZUEeq
VkRPWI22DZmyYNzbaTW616PE/eARIl5b6YgW9q1UXxzCgiVkgSe68VzMh9fx
LNhioHoa/fqW6z5jDgvMz1+8jS5ZxlPsr2VBSXJuOpqVpyMgdbGAq2xMRudU
DDrOV2DDWt+QKvSNiXDbDh82OFQEi4lwf5G9c5Ivs8HX1nQO+oLi7grHO2xo
r46UR/vqq1uyi9mQY9Ssi/Zih0kEvmPD3K1969BuNp1FK/rZoJmRZIzWebZv
yQsZDnxltm5HpwX9LSIpcmBE57IDWt2M0xi6jIjv4+9FK7zSumdoxIHYyrDD
aMlP/YsfHOKAqXRqCPpy9rKRc8c5oNYteQUtOulU7xzMAc41gwj0kBjjlkw0
ByIfdMWhT5b2BnYkcqCRfiYB3fe3xp4iEgcOP69JQn9SurYgiE647n8k9MEW
6qBjCQeKmHWZ6KaMbr4enwNjTpey0IINDtEfhRzYdvHQM3SpnaqMvRwXJr6H
stEL9VoW+atwIfOzNA/tLkNaEq/NhfhtZ4vRP16s2lBvzIUAkwXl6G2P+01/
bOXCGM3kBTouIt9SZScXKo7bv0KvsjZxcT/IBUGLER/9XLLY9+FpLvhI1dVM
7rtkx6WOSC4kf1hRj442d3nkl8+F5ZoLG9HLZ7Qx8su4oOjytBnN4xytGm7g
wqhApQ3tGjLYZjLAhZoE53b0N9PgoVAJHryw8fqE1qVfV5PS44HRx7ld6H2b
7ljEOPEgq1y3Fx1Fzjy2OIQH22Nf96PZ+oVx9zN4YP78ty/owdxS2vIqHvTs
HP2K1lwtaHkyzIPAjnvf0eE639fwrItg5rd1I+geDfkL1YlFoJk2bxS9bkdq
X159McTH3ZlABwasPHBzUQno2ieK0Om6yW+Dj5eCn7xw0oKGeQ5eZWWg6Dky
aZXH6SobpSuAoTMxafcgk0+SNi9A5Zxo0rHV1ML2zJfQ0fjTRSs3RhRJvIa8
oZ+enSLIvrqjEgrGf1pbitHx0KoK3EU//aB1gcKejiqo+WVVhreFRDgfvv6y
rMvGoc0G1SA2+fSD2I8Zj/xbpz2m1SyuEvZmykO7mG7PtWqm/H7DfmWtsNop
+znPm7+0oW7Ki+M//jFTtR4mfvXLcUnN+HLm7VTc2TTEqoz5bspP3HyWGo+9
n/KwtLk4dc+HKTvwNxuqJjROWVadErX4+bTLj+m3yQ9O22z28mhZm6ap/sMn
hpVydk07930pyda5aSpfLdeLHuUxHR/b81AoHTQdp6Spm0qmT9t/IDFO/M20
9WBRp0g07f8AskB6iA==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0.9999000000000001},
  PlotRange->{{-0.5, 0.5}, {0.9998875177794908, 1.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.518578324963789*^9, 3.518597065831526*^9}],

Cell[BoxData["2.000000000000067`"], "Output",
 CellChangeTimes->{3.518578324963789*^9, 3.518597065851638*^9}],

Cell[BoxData[
 RowBox[{"-", "3.352873534367973`*^-14"}]], "Output",
 CellChangeTimes->{3.518578324963789*^9, 3.518597065853425*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Last", "[", 
   RowBox[{"Reap", "[", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "msetest"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "msetest"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
      RowBox[{"EvaluationMonitor", "\[RuleDelayed]", 
       RowBox[{"Sow", "[", "y", "]"}]}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.518597129584822*^9, 3.518597169880631*^9}},
 CellID->547824140],

Cell[BoxData[
 GraphicsBox[
  {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJxVlltsVGUUhUetBkxMAHkwxpihFkRFUwQBAZ0NFCi9QKf3Tm9nrp379Ani
A2FCYqIPxkK8FJE40Uh4wigESAhy1Ac0ViBCAlKBQcUrCIqUixSEzLea2KRp
VvfZZ61/77X3+aeEco3Ruz0ez+jt3zt/Sz8XfU++9vkbhbW39vMPi89vKqZv
3QCPs8r62sXl5VfBE6xs96bRxxb8BZ5snqHTl1efPQN+yDz/+3lEcV8Je5UP
Ltf7wRXiB08z9IGn25vLgjWHP5XeJ232lif6d627CZ5hg1unTpk4UfqfsfXD
Qzc3bJH+SvNcWrOv+6V/wDPRexH8rHkenvBy1QO/gGfZ1Q1DZXtePQmebfb1
tyOr1xwCP2fujNjoYNke8BxzA9v7ztcOgOcKo3+engc/r/eB54sPvEB6wAul
F/yCzgN+UecF+1QPsKleJZw31ZP4Iqv5oHJq/DT1zS+ydw5OnjfsU70XW92R
jQOvjKPe+cX2WSZ268uVqvcSy1/be2r7wuvEl6BX9a+y/H1VU/xfXCZeZb6N
mzxzP75EfKntnJHJrbmCv/JLLTbzjwMVrvqzzHZ1HTrxthecX4b+C8SXc74/
iS/n/OeIV1OfX4lXU7+fiK9Ab5H4Cup/jHgN/fmGeA3920+8lv5uI15L//PE
64Spf52ep/71eh/xevERXyk9xFdKL/FVOg/xVTov8QbVo4StQfXi+QbVs4Td
BtWbfL/6Qb5f/SLfr36S71e/yW9EL/60RvmF/Eb5ifxG+Y38JvmR/Cb5lfwm
+9A/OGnnBfzqNll93/3vnn9P/m22rYkV1VVlYGu24pwd6yKPy8/N5t7ozrU9
Okp+M3rl7xaze94f2HYGf1uLeb+qy28+fo38Fgu8tWv33n/xu9tiOwYvhyc5
8n+rdd5p/wSwtaL3Cvmt6AW7regFe9rQO0J+G3o1T23oZb+5bej9m/x29DJf
1o5ezVM7esFuO3o1fx3C1L9Dz1P/Dr2P/nWIj/4FpIf8gPSSH9B5yA/ovOR3
qh7kd6pe5HeqnuR3qt7kd6kf5HepX+R3qZ/kd6nf5HfLD+R3yy/kd8tP5HfL
b+T3yI/k98iv5PewH/rJ72E/DJLfy374iPxe9sM+8nvZDwfI70XvYfId9sPR
EvY67IfjvM9hP3xfwo7DfjjF+x32w+kSLjjsB/aP67AfwEWH/aDvf5D98CP8
QfbDWfiD6GVfOUH2w+/wB9kP7K9CkP3A/nKD7Af2VzHIfgB7QsIlP3tDep55
COl9JeyExMd8hKSnhAsh6WVeQjpPCRdDOi/zE1Y94A+rXvCHVU/4w6o3/GH1
A/6w+gV/WP2EP6x+wx+RH+CPyC/wR+Qn+CPyG/wR+RH+iPwKf4R5U/8jzJu+
T1HmDeyNMm/4w6LM2w/0P4pefc+izBt+KUSZt5/pf5R5475UjDJvuj/FmDew
N4Ze/GYx9Mp/MfSC8zH0/gZ/DL34042hF38WY+g9D38fevGrtw+9+NP60At2
+tALzo9h6j/2PPUfex/9H+Oj/3Hpof9x6aX/cZ2H/sd1XvofVz3gj6te8MdV
T/jjqjf8CfUD/oT6BX9C/YQ/oX7Dn5Af4E/IL/An5Cf4E/Ib/En5Ef6k/Ap/
0o5Mrxt/4grfWydpW2fde3DkkL7Pt+M7KyrK14MLSevf/J3vkwf1vU6ac3P7
7qde5/tcTKIX7ElZ4S5/9dF+vtfelA1Eprn15/heW8qerh0ePrkW7KQsMHR9
5vhKcP52/NiOkanjwIUUerk/uyn0gosp9Op+nUYv2JtGL/cDS6MX7KTRq/t4
Gr3cBwpp9Oq+kEYvuJhGr+4PGWH8n9Hz+D+j9+H/jPjwf0Z6mL+M9DJ/GZ2H
+cvovMxfVvWAP6t6wZ9VPeHPqt7wZ9UP+LPqF/xZ9RP+rPoNf05+gD8nv8Cf
k5/gz8lv8OfkR/hz8qvvPzPK/WQ=
    "]]},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, Automatic},
  PlotRange->Automatic,
  PlotRangeClipping->True]], "Output",
 CellChangeTimes->{3.518597172480786*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", " ", 
      RowBox[{"Method", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<GlobalAdaptive\>\"", ",", 
         RowBox[{"Method", "\[Rule]", "\"\<ClenshawCurtisRule\>\""}]}], 
        "}"}]}]}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.518598377287266*^9, 3.518598439474228*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{".0154", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"msetest", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "%"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"var", "[", "msetest", "]"}], "\n", 
 RowBox[{"1", "-", 
  RowBox[{"%", "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.518598464387059*^9, 3.51859846506987*^9}}],

Cell[BoxData["0.0154`"], "Output",
 CellChangeTimes->{3.518598474338151*^9}],

Cell[BoxData["1.9999999979771605`"], "Output",
 CellChangeTimes->{3.518598474339797*^9}],

Cell[BoxData["1.011419725749363`*^-9"], "Output",
 CellChangeTimes->{3.518598474341941*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"2", "*", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Condexp", "[", 
           RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
         RowBox[{"Fy", "[", 
          RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"y", ",", 
          RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", 
        RowBox[{"Method", "\[Rule]", "rule"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"rule", ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<NewtonCotesRule\>\"", ",", "\"\<GaussKronrodRule\>\"", ",", 
         "\"\<ClenshawCurtisRule\>\""}], "}"}]}], "}"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", ".0154", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"msetest", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "%"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"var", "[", "msetest", "]"}], "\n", 
 RowBox[{"1", "-", 
  RowBox[{"%", "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.518601329008354*^9, 3.518601335350816*^9}, {
  3.518601367964818*^9, 3.518601379161455*^9}}],

Cell[BoxData["0.0154`"], "Output",
 CellChangeTimes->{3.518601380698878*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.000000092276302`", ",", "2.000000000000067`", ",", 
   "1.9999999979771605`"}], "}"}]], "Output",
 CellChangeTimes->{3.518601380771955*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "4.6138151077457223`*^-8"}], ",", 
   RowBox[{"-", "3.352873534367973`*^-14"}], ",", "1.011419725749363`*^-9"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.518601380774475*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"//", "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
                    "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], 
               "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}], "//"}],
        "//"}], "//"}], "//"}], "//"}], "//"}], "//"}]], "Input",
 CellChangeTimes->{{3.518602681854333*^9, 3.518602696960205*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"bsymb", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", 
     RowBox[{"-", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Fy", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], "*", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"Sqrt", "[", 
       RowBox[{"\[Pi]", "*", 
        RowBox[{"\[Sigma]", "^", "2"}]}], "]"}], ")"}]}], "*", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Condexp", "[", 
    RowBox[{"y_", ",", "\[Sigma]_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"bsymb", "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}]}], "]"}], "/", 
    RowBox[{"Total", "[", 
     RowBox[{"Exp", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"y", "-", "bsymb"}], ")"}], "^", "2"}]}], "/", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]", "^", "2"}], ")"}]}], "]"}], "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"var", "[", "\[Sigma]_", "]"}], ":=", 
   RowBox[{"2", "*", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Condexp", "[", 
         RowBox[{"y", ",", "\[Sigma]"}], "]"}], "^", "2"}], "*", 
       RowBox[{"Fy", "[", 
        RowBox[{"y", ",", "\[Sigma]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"y", ",", 
        RowBox[{"-", "\[Infinity]"}], ",", "\[Infinity]"}], "}"}], ",", " ", 
      RowBox[{"PrecisionGoal", "\[Rule]", "15"}], ",", " ", 
      RowBox[{"Method", "\[Rule]", "\"\<DoubleExponential\>\""}]}], "]"}]}]}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.518602501998897*^9, 3.518602509534348*^9}, {
   3.518603395694491*^9, 3.518603398439605*^9}, {3.518604321374353*^9, 
   3.518604340270633*^9}, {3.518604383845786*^9, 3.518604392449326*^9}, {
   3.518606646629336*^9, 3.51860664671701*^9}, {3.518606686025239*^9, 
   3.518606727499447*^9}, {3.518606857426744*^9, 3.518606870255921*^9}, {
   3.518607082550876*^9, 3.518607090423314*^9}, {3.518607212045995*^9, 
   3.518607222822708*^9}, {3.518607254008479*^9, 3.518607324548747*^9}, {
   3.51860738673216*^9, 3.518607432326235*^9}, {3.518607466493529*^9, 
   3.51860746924719*^9}, {3.518607509215702*^9, 3.518607621816153*^9}, 
   3.518607662431933*^9, 3.518607811364503*^9, {3.518607845323632*^9, 
   3.518607872469685*^9}, {3.518607926438261*^9, 3.518607926524871*^9}, {
   3.518607969846678*^9, 3.518607970200738*^9}, {3.518608207448534*^9, 
   3.518608243717438*^9}, 3.518609325768048*^9, {3.518609475136664*^9, 
   3.518609488812779*^9}, {3.518609537176913*^9, 3.518609537259553*^9}, {
   3.518609582828386*^9, 3.518609584876757*^9}, {3.518609651435311*^9, 
   3.518609651524584*^9}, 3.518609728251571*^9}],

Cell[CellGroupData[{

Cell[BoxData[{".003", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"msetest", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "%"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"var", "[", "msetest", "]"}], "\n", 
 RowBox[{"1", "-", 
  RowBox[{"%", "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.518602546712021*^9, 3.518602547323367*^9}, {
   3.518603546209833*^9, 3.518603546386742*^9}, 3.518604351300722*^9, {
   3.518604403531863*^9, 3.518604411109352*^9}, 3.518606677896641*^9, {
   3.518607818823925*^9, 3.518607829048983*^9}, {3.518607861725466*^9, 
   3.51860787934596*^9}, {3.518607911954459*^9, 3.518608002652571*^9}, {
   3.518608215912738*^9, 3.518608219431613*^9}, {3.518608354545758*^9, 
   3.518608360662675*^9}, {3.518609302178752*^9, 3.518609302297153*^9}, {
   3.518609380752421*^9, 3.518609438244036*^9}, {3.518609501011976*^9, 
   3.518609571319643*^9}, {3.518609621962808*^9, 3.518609622470496*^9}, {
   3.518609659823681*^9, 3.518609719856862*^9}, {3.519084864375*^9, 
   3.51908486459375*^9}}],

Cell[BoxData["0.003`"], "Output",
 CellChangeTimes->{{3.51860935654177*^9, 3.518609438812534*^9}, {
   3.518609491570885*^9, 3.51860958852165*^9}, 3.518609623085844*^9, {
   3.518609653143213*^9, 3.518609732519413*^9}, 3.51908486746875*^9, 
   3.519085104390625*^9}],

Cell[BoxData["2.0000000000000004`"], "Output",
 CellChangeTimes->{{3.51860935654177*^9, 3.518609438812534*^9}, {
   3.518609491570885*^9, 3.51860958852165*^9}, 3.518609623085844*^9, {
   3.518609653143213*^9, 3.518609732519413*^9}, 3.51908486746875*^9, 
   3.519085104421875*^9}],

Cell[BoxData[
 RowBox[{"-", "2.220446049250313`*^-16"}]], "Output",
 CellChangeTimes->{{3.51860935654177*^9, 3.518609438812534*^9}, {
   3.518609491570885*^9, 3.51860958852165*^9}, 3.518609623085844*^9, {
   3.518609653143213*^9, 3.518609732519413*^9}, 3.51908486746875*^9, 
   3.519085104421875*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"norm\[Sigma]List", " ", "=", " ", 
  RowBox[{"Range", "[", 
   RowBox[{".0155", ",", "1.5", ",", " ", ".0001"}], "]"}]}], "\n", 
 RowBox[{"indexLim", "=", 
  RowBox[{"Length", "[", "norm\[Sigma]List", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mseinList", " ", "=", " ", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"2", "*", "norm\[Sigma]List"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varoutList", " ", "=", " ", 
   RowBox[{"ConstantArray", "[", 
    RowBox[{"0", ",", 
     RowBox[{"Length", "[", "mseinList", "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"Length", "[", "mseinList", "]"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{
    RowBox[{"varoutList", "[", 
     RowBox[{"[", "i", "]"}], "]"}], "=", 
    RowBox[{"var", "[", 
     RowBox[{"mseinList", "[", 
      RowBox[{"[", "i", "]"}], "]"}], "]"}]}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"normvarout", "=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", "-", "varoutList"}], ")"}], "/", "2"}]}]}], "Input",
 CellChangeTimes->{{3.518602673783864*^9, 3.518602674214217*^9}, {
  3.518609764769093*^9, 3.518609764936339*^9}, {3.51861252277472*^9, 
  3.518612522916748*^9}, {3.518612879734479*^9, 3.518612881432639*^9}}]
},
WindowSize->{1144, 226},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 2554, 75, 132, "Input"],
Cell[3102, 97, 933, 25, 72, "Input"],
Cell[4038, 124, 744, 18, 92, "Input"],
Cell[4785, 144, 671, 18, 52, "Input"],
Cell[5459, 164, 1125, 37, 31, "Input"],
Cell[6587, 203, 2206, 70, 92, "Input"],
Cell[CellGroupData[{
Cell[8818, 277, 744, 18, 92, "Input"],
Cell[9565, 297, 25258, 345, 1285, "Output"],
Cell[34826, 644, 165, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35028, 651, 620, 17, 52, "Input"],
Cell[35651, 670, 40995, 632, 2220, "Output"]
}, Open  ]],
Cell[76661, 1305, 1125, 37, 31, "Input"],
Cell[77789, 1344, 2501, 74, 92, "Input"],
Cell[CellGroupData[{
Cell[80315, 1422, 1445, 37, 132, "Input"],
Cell[81763, 1461, 1404, 21, 69, "Output"],
Cell[83170, 1484, 289, 4, 30, "Output"],
Cell[83462, 1490, 3169, 62, 149, "Output"]
}, Open  ]],
Cell[86646, 1555, 1125, 37, 31, "Input"],
Cell[87774, 1594, 2900, 75, 132, "Input"],
Cell[90677, 1671, 530, 12, 92, "Input"],
Cell[91210, 1685, 1125, 37, 31, "Input"],
Cell[92338, 1724, 2108, 68, 92, "Input"],
Cell[CellGroupData[{
Cell[94471, 1796, 1886, 39, 132, "Input"],
Cell[96360, 1837, 126, 2, 30, "Output"],
Cell[96489, 1841, 32106, 534, 248, "Output"],
Cell[128598, 2377, 7173, 124, 239, "Output"],
Cell[135774, 2503, 140, 2, 30, "Output"],
Cell[135917, 2507, 143, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136097, 2514, 1014, 26, 132, "Input"],
Cell[137114, 2542, 98, 1, 30, "Output"],
Cell[137215, 2545, 32331, 537, 248, "Output"],
Cell[169549, 3084, 5886, 103, 239, "Output"],
Cell[175438, 3189, 109, 1, 30, "Output"],
Cell[175550, 3192, 131, 2, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175718, 3199, 668, 19, 31, "Input",
 CellID->547824140],
Cell[176389, 3220, 2280, 42, 233, "Output"]
}, Open  ]],
Cell[178684, 3265, 2270, 70, 92, "Input"],
Cell[CellGroupData[{
Cell[180979, 3339, 358, 8, 92, "Input"],
Cell[181340, 3349, 76, 1, 30, "Output"],
Cell[181419, 3352, 88, 1, 30, "Output"],
Cell[181510, 3355, 91, 1, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181638, 3361, 2752, 83, 192, "Input"],
Cell[184393, 3446, 76, 1, 30, "Output"],
Cell[184472, 3449, 184, 5, 30, "Output"],
Cell[184659, 3456, 231, 6, 33, "Output"]
}, Open  ]],
Cell[184905, 3465, 1191, 38, 31, "Input"],
Cell[186099, 3505, 3270, 83, 92, "Input"],
Cell[CellGroupData[{
Cell[189394, 3592, 1035, 18, 92, "Input"],
Cell[190432, 3612, 266, 4, 30, "Output"],
Cell[190701, 3618, 279, 4, 30, "Output"],
Cell[190983, 3624, 300, 5, 30, "Output"]
}, Open  ]],
Cell[191298, 3632, 1364, 35, 132, "Input"]
}
]
*)

(* End of internal cache information *)
